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Foreword 


This is a curious and interesting book. 

While at first sight it appears to be a book which simply tells you 
how to write and develop games programs for the ZX80 — and gives 
the listings of over 60 programs in the process — closer inspection 
reveals that following through the explanation given for each game 
and computer function will teach you quite a bit about the ZX80, the 
BASIC language and micro-computers in general. 

However, the book is not all games. If you’re a parent or teacher, 
you'll find the section THE ZX80 AS TEACHER an aid in making the 
most effective use of the ZX80 in the classroom. Tim Hartnell has 
outlined some quite useful programs for school applications. After the 
teaching section, there are some useful subroutines, a run-down of the 
ZX80's functions and a detailed look at the features of the new 8K 
ROM. 

The book is a worthwhile resource to make sure you do, indeed, 
"make the most of your ZX80". And you'll never feel quite the same 
about your computer after surviving a round of FRENZY, a game with 
a most peculiar slot-machine (FOUR FRUITS FEVER)or a crash-landing 
on the moon (LUNAR LANDER). 








SHERIDAN WILLIAMS 

Micro Computer Consultant 
to 'Personal Computer World' 
Magazine. 














Introduction 


Your ZX80 came in the post. You unwrapped it and were 
momentarily surprised (and secretly a little disappointed) at how tiny 
and — well — uninspiring it looked. 

The manual that came with your machine proved a boon. After 
struggling through it, you actually had a pretty fair idea of how to 
write a program. If you were like me when | first worked through the 
manual, you thought the program that rolled a die, and the one that 
drew two bar charts after a seemingly interminable delay, were pretty 
good. 

But, after reading through the book a few times, a faint, niggling 
thought came into your mind, which would not go away. "it's a little 
limited in what it can do," you thought, "and the screen fills up 
awfully fast. What's the point of spending the rest of my days in front 
of a flickering TV screen, rolling innumerable dice?" 

So, you dashed to a computer shop, or wrote away to one of the 
companies that advertise in the computer magazines, and spent more 
of your hard-earned cash on books of programs. 

And none of them could be fitted to your machine. 

Either the memory in the ZX80 as supplied, with just 1K RAM,was 
too small to get more than half the program in, ог {һе program 
demanded numbers that were not integers, or called for statements 
like DATA which your ZX80 doesn't have. Another gulp, and you 
began secretly to resent your ZX80. "I should have saved up for a 
PET," you think. The worst moment comes when one of your friends 
drops in and after watching you roll a die or two says: "Yes, but what 
can you do with it?" 

That is where this book comes in. If you work through it, with your 
ZX80 turned on at the appropriate moments, you should learn enough 
about programming to write your own games programs. If you follow 
the advice given on "building a library" you'll also have a healthy set 
of neatly labelled cassettes with a choice of programs to please even 
your most boring friends. 

The book assumes you would like to collect a number of different 
programs that work; that you want to know how and why they work; 
and — eventually — that you want to be able to create and develop 
your own programs. The book explains how the programs werte 
written, developed, and made more complex and/or fun to run, from a 
simpler "core" program. By following through the programming, 
feeding the games and other programs into your ZX80 and running 
them, you should learn a fair amount of BASIC without even trying. 

Before you read the book, | suggest you glance through it to get an 
overall picture of the ground it covers. The more BASIC you know, the 
further you can read into the book without plugging in your ZX80 and 
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running the programs. The book was written with the idea that you 
would input each program when you came to it. This is why, for 
example, all the HUNT THE HURKLE-type games are not together. 
You're most unlikely to want to input six different versions of the same 
program in a row. The order of programs is also dictated by the need 
to put the simpler ones in first. 

My thanks to Colin Hughes and Trevor Sharples for checking the 
manuscript, of course, any errors are mine. Thank you also to 
members of the National ZX80 Users Club (44 - 46 Earls Court Road 
London, W8 6Е)) who contributed many ideas and comments on the 
ZX80. And | guess | should also acknowledge Ron Condon who | first 
met in his incarnation as editor of the computer trade weekly 
Datalink. He has a lot to answer for. After all, it was Ron who first 
awakened my addiction to computers. | 


Tim Hartnell 
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New ROM/Old ROM 


lf you've just bought your ZX80, and you have the standard, 
unadorned machine, ignore this section and go straight to RANDOM 
NUMBERS. If you're not sure whether you have a 4K or an 8K ROM, 
you're almost certain to have a 4К ROM which means the programs as 
given will run exactly as listed here. This book was written primarily 
for the 1K ZX80 АК (018) ROM machine, which is the standard one 
advertised. Even if you have a ZX80 with the 8K (‘new’) ROM, or you 
decide to buy one in due course, the programs in this book will run 
with just two minor modifications. 

One change needed to run the programs in this book on a new ROM 
ZX80 is to change any division line (such as LET J = 7/2) into: LET j = 


INT (7/2). Make these two changes a 


nd the programs will run perfectly. 


Another feature of the new 
the graphics characters are si 


ROM that could ca 
uated on different 


use problems is that 
eys, The references 





in this book to thing like "shift S" refer to the graphics which are on 
the old ROM keys. To change them for the new ROM, use the 
following list (old position followed by the new): 
shift Q, graphic 5; shift W, graphic 6; shift E, graphic 1; shift R, 
graphic 2; shift T, graphic D; shift A, graphic A; shift S, graphic T; 
shift D, graphic 4; shift F, graphic 3; shift G, graphic S. 
You'll also find you can get the inverse of the graphics without using 
a character string (CHR$(X)) as you need to with the old ROM. When 
you're more experienced, you will probably want to use some of the 
new ROM‘s other features (especially PLOT, DRAW and PAUSE) to 
enhance the games in the book, but they will all run satisfactorily as 
they are listed, apart from the changes mentioned above. 
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Random Numbers 


Turn on your TV, plug in the ugly black power converter, and get the 
cursor (that/s the white K on a black square) down in the left hand 
corner of the screen. Our first program uses one of the most useful 
programming aids for games — the random number generator. 

Actually, as the manual points out, it is not a true random number 
generator, but it is close enough for our purposes. 

To generate a number between zero and, say, 10, you just input LET 
] = RND(10). You have to spell out the RND although the LET is just a 
single key stroke. If you follow up this line with the command PRINT J, 
your ZX80 will display the number (between zero and 19) which it has 
generated. Notice that when you write a program, each line must be 
numbered (with numbers between 1 and 9999). The computer executes 
each line from the lowest number to the highest. 


Try this program first: 





10. PRINT "NUMBER 30 PRINT J ;" "5 (just leave a 
GENERATOR" couple of spaces between 
20 LET J = RND (10) the quote marks) 
40 GOTO 26 





When you run this, you'll find the screen fills up with numbers, 
between 1 and 10. The program stops (and gives you the error code 
5/30) when the screen is full. 


There are five things you can learn from this program: 
10 PRINT "NUMBER GENERATOR” 


This line starts with a line number (as | mentioned before). You can use 
any number you like (between 1 and 9999), but you'll find working in 
multiples of 10 or 20 will give you enough room to add new lines in 
between others if you need to later. Line numbers sort themselves 
automatically into the correct order. When you ràn the program, the 
ZX80 acted on the lowest numbered line (in this case 10) and obeyed 
the instruction PRINT and printed what was between the quote marks. 
Pretty simple, basic stuff. So from this [ine you have learned the use of 
line numbers, and of the command PRINT, 
The next line: 


20 LET J = RND (19) 


This tells the computer to assign the value generated to the integer 
variable ] (a letter, a number of letters, or a letter followed by a 
combination of letters and numbers can be an integer variable). Then 
when, in the next line, you ask the ZX80 to PRINT J, it prints the 
number which has been assigned to J. Don't worry if you can't 
understand this, it will become clear in due course. 
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The next line: 
30 PRINT)”; 


This line tells the computer to print the number which it has assigned 
to J. The semi-colon after the J, and after the second set of quote 
marks, ensures that the ZX80 will print the values for J one after 
another, instead of starting a new line for each one. 

Try typing 30 PRINT ,], Using the NEWLINE, put this into the 
program in place of the original line 30. Run the program, and you'll 
notice the numbers printed in neat little columns. The comma divides 
the screen up into four parts, and when it reads a comma, 
automatically goes to the start of the next quarter of the screen. (The 
space between the quote marks in the original program ensured there 
was a space between each number). Try running the program without 
the space, i.e. with line 30 PRINT J;. You'll find the screen fills up with 
solid numbers, all running into each other. The semi-colon tells the 
ZX80 to go on and print the next ], without leaving a space, and 
without starting a new line. 

The fourth line of our original program: 


40 СОТО 20 


The computer runs through the program in order, carries out the 
instructions in each line, and then stops. іп this case, when it gets to 
the end of the program, line 40 tells it to go back to line 20. It does so, 
then runs through the program again, and again finds the instructions 
to go back to line 20. It stops only when you run out of screen space. 

Now, you've learned that a letter, such as J, can be assigned a 
numerical value. What is known as a 'string' (a letter followed by a $ 
sign, like A$) can be assigned to a word or words (or any combination 
of letters, symbols and numbers, but we'll stick to words for the 
moment). 

Clear the RAM with the instruction NEW, and input the following 
program: 





10 PRINT "NUMBER 60 PRINT "AND TEN. PRESS 
GENERATOR" NEWLINE.” 

20 PRINT “WHAT IS YOUR 70 INPUT B$ 
NAME?" 80 LET] — RND (10) 

30 INPUT A$ 90 PRINT j)”; 

40 PRINT "OK, AS", ТАМ 100 GOTO 80 


GOING TO WORK OUT” 

50 PRINT “SOME RANDOM 
NUMBERS BETWEEN 
ONE” 


Try running this program. You'll find the line 20 asks your name, and 
then accepts it in line 30, assigning the string A$ to your name. The 
ZX80 then uses your name (A$) in the next line, line 40. 
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The other thing to note about this program is the line 60 which tells 
you to press the NEWLINE key to continue. The string in line 70 (B$) is 
just a way to tell the computer to stop and wait for NEWLINE to be 
pressed. This feature is a very useful one in games, and we will e 
using it time and time again. 

You've probably cursed the fact that your ZX80 doesn't ‘scroll’ t 
contents of the screen upwards. It just shuts down when the screen is 
full, and gives you an error code, 

The clear screen command (CLS) is very useful here. Looking at the 
output of the program you've just гип, you have probably realised that 
all the lines spent asking WHAT 15 YOUR NAME? and so on are wasted 
once the instruction has been followed. Add the line: 75 CLS to t 
program, and run it again. 

The CLS, you will find, cleared the screen of everything that 
preceded it on the program, but didn't (as will become important later) 
‘forget’ what had been assigned to the string, A$. That is the computer 
still remembers your name (A8), so long as you don't wipe the program 
with NEW or turn off the power, or go back into the ‘command mode’ 
(when you can see the whole program listed on the screen, numbers 
and all). 

It is a bit butchery to just run the program until it fills the Screen and 
jams off, giving you an error message. We can let the ZX80 count how 
many times it goes around the loop (that is, how many times it 
executes the lines 80, 90 and 100). Add the following: 

76 LETK = ф 
85 ЕТК =K +1 
95 ІРЕК > 30 THEN STOP 


Now run it, you should find the program prints 31 numbers between 
0 and 10 and then stops. It does this by assigning the value of zero to 
the number variable in line 76, then adds one to K each time round (so 
the first time it is, in effect, LET K = 0 + 1, the second time LETK — 1 
+ 1, the third time LET K = 2 + 1, and so on) until K is bigger than 39, 
when the computer STOPs, This counting and terminating feature is a 
very useful one. 

IF/THEN: In line 95 (IE K > 30 THEN STOP) we used one of the 
ZX80's facilities to make a decision, and act on it. This IF/THEN is a 
very useful command in BASIC. The form of an IF/THEN line is line 
number, IF something (such as IF Z — 30, or IF A = B) followed by 
THEN (shift 3) and another command. In ZX80 basic the other 
command can be anything (such as GOTO, LETS = 2, or STOP). 


Delivery of the 8k ROM was delayed late in 1980 pending the 
development of a printer. 


Let's get to our first real program. 





e 
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Simple Decision Makers 

















Input the following: | 
“ 7 NPUT Q$ 
10 PRINT “DECISION 5 ET] AND (3 
PRINT. 90 IF] = 1 THEN 
P PR N PRINT SEN 
» PR f “THINK OF A 100 RINT NA 
UESTION AND" RINT, 
5 PR NT "PRESS NEWLINE 110 IF] = E" 
° FOR A” RINT ,"MAYB 
60 PRINT "DECISION ON 120 STOP 
Т” m 
Run this program a few times. You'll see how the comme in lines 10, 
90, 100 and 110 sets the words away from the left hand si 


ith j mand PRINT, with 
lines 20 and 30 (with just the com | 
screen апо MA it) put a space between the printout of lines 10 and 
n 
i at 
MUS comes the creative bit. To dress up this program, you can do at 
least three things: (1) Let the 2х80 ask for, алд из уош па пе G үзе 
? the presentation cleaner; and C ] п 
one before the screen flips back into the command mode. Ty and 
amend the program (by slipping things in between the потр ‘hanes 5, 
andior by changing some lines) until you can do these Н ree th A 
before reading on. Cover up the following program until y 
go at altering the original program. 

















This is just an example of how to modi y the program. There are 
many, many other ways to achieve similar ends. мыт 
10 PRIN T "DECISION 90 Мо 1 THEN 
PRINT Q0 IFJ = 2 THEN PRINT 

20 РК Mo 

5 ЛАШ 5 YOUR 10 IF] = 3 THEN PRINT 
INPUT "MAYBE" 

27 NPUT A$ 20 PRINT 

P PRIMO "THINK OF A 130 PRINT euo ER 

UESTION, “АФ | AS? 

50 PRIN “PRESS NEWLINE, P ҚЫЛ Bi psr THEN 
AND 1 WILL” 3 

60 PRINT "MAKE A — 160 сото 0 

70 INPUT QS ом 70 PRINT "OK, AS; BYE 

i BYE” 
80 (ЕТ) = RND (3) во Sor 
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Note the way the computer is asked to check if B$ = "YES" (in line 


150) If it 


inds that B$ is equal to YES, control goes back to line 30. 


There is no need to put in a line IF B$ = "NO" THEN GOTO 160 


because t 


work out 


e ZX80 moves on until it comes to another instruction. 


"here is another refinement we could add to this program. Try and 


ow to make the amendment before you read the program 


listing. If you decided you wanted the computer to give you two “NO” 
and two "YES" to every one "MAYBE", how would you amend it? Try 


to work t 
before yo 


is out (changes will be needed between lines 80 and 120) 
u read on. 


f you need five alternatives (two NO, two YES, and one MAYBE), 


you will need line 80 to generate five random numbers. For two of 
these the computer must print NO, and so on. To save writing IF | = 1 


THEN PRINT 


THEN PR 
PRINT “Y 





"YES", and IF | = 2 THEN PRINT "YES", and IF J = 3 
NT “NO” and so оп, we can use the line ЇР] < 3 THEN 
S". 





But what about the “NO” answer? If you write, for line 100, IF} <5 


THEN PRINT “NO”, the computer will print a YES with a NO 
underneath if the number 3 or 4 is generated. You can overcome this 


with an AND statement, as follows: 
80 ШЕТ) = КМО (5) 100 IF} 22 AND} <5 THEN 
90  IFJ <3 THEN PRINT PRINT "NO" 
“YES” 110 IEJ = 5 THEN PRINT 
“MAYBE” 
A little later on we'll work out a more sophisticated DECISION 


MAKER program, but for now let's do something a little more 
interesting — play Russian roulette. 
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Russian 
Roulette 


The principle of the game is simple. You have a pistol with six 
chambers, only one of which contains a bullet. You spin the chamber, 
pull the trigger, and...either bang, or click. Already you are thinking 
“Aha, the random number generator, one in six." The only major 
decision to make is how many shots you are going to have before 
ending the game. Input the following program into your ZX80, run it a 
few times, then come back to this book for a discussion on some of the 








features of it. 

10  PRINT,"RUSSIAN 100 IF G <6 THEN PRINT 
ROULETTE" "CLICK^ 

20  PRINT,"(C) HARTNELL 110 IF С = 6 THEN СОТО 
1980" 140 

30 PRINT 120 IF} = 10 THEN СОТО 

40 LE = ф 160 

5) PRINT “PRESS NEWLINE 130 IF |} « 10 THEN GOTO 50 
TO FIRE” 140 PRINT “BANG...” 

60  INPUT T$ 150 СОТО 140 

70 CLS 160 PRINT "YOU HAVE 

80 ЕТ}=}+1 SURVIVED" 

90 LET G = RND (6) 170 STOP 

Notice this program uses the GOTO (in lines 110, 120, 130 and 150) 
command to either give you another ‘shot’, print BANG... to fill the 





screen, or to print YOU HAVE SURVIVED. Line 40 sets J = @ at the 
beginning, and line 80 adds one to it each time you run through until 
(unless you've shot yourself) you've been through ten times, that is 
when J = 16. Lines 120 and 130 check the value of | and either send 
you back to 50 or advance to 160. Now, add the following line to the 
program and run it a few times: 


95 РКІМТ,С,) 
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This added line displays the number that line 99 has generated and, 
to the right, the number of the run (i.e. J) that you are on, After you've 
run it a few times, erase line 95, Before you read on, try to amend the 
program (just by adding lines between the present ones) to allow the 
program to give you (a) the option not to play at all; and (b) the chance 
for subsequent games if you manage to survive. 


30 PRINT "DO YOU WANT 34 IF A$ = "NO" THEN 
TO PLAY?" STOP 
32 INPUT АЗ 


and further down: 


162 PRINT “DO YOU WANT 166 IF B$ = "YES" THEN 
ANOTHER GO?" GOTO 40 
164 INPUT B$ 


You may well have modified the program differently, but as long as 
it works, it doesn't matter exactly how you do it. 

Now, the following is a very important point for the development of 
games' programs. The best way l've found to work out games is to set 
up the ‘core’ of the game first (in the case of RUSSIAN ROULETTE, the 
core would be the first version of the game). Having set up this core, 
and made sure it works, | then proceed to elaborate the game to make 


it more fun to play, while making sure I don't overload the ZX80's tiny 
RAM. 


You may have felt that the running of the game in its present form is 
a little unsatisfactory, and that when line 95 was included (PRINT,C,J) 
it was a bit more interesting. So add the following line: 


95 PRINT "THAT WAS SHOT 7) 


and run the program. That certainly makes it a bit more interesting. 
Before reading on, | want you to try and write a new version of line 95 
which will tell how many shots you've left to reach 10, rather than just 
telling you the number of the current shot. One way of doing it: 


95 PRINT 10 — J;“SHOTS TO GO" 


Now, let us have a second look at line 34. Instead of just stopping 
when the player decides not to play, why not let the ZX80 respond 
more definitely, say by printing the word CHICKEN to fill the screen. 
Try and work out how to do this. For a start, you'll have to change the 
STOP statement in line 34 into a GOTO command. 

One way of doing it: 


34 IF A$ = "NO" THEN 180 PRINT "CHICKEN..." 
GOTO 180 181 СОТО 180 


This version prints a most interesting pattern of the word CHICKEN. 
We'll use this pattern-effect to produce a new program shortly, but for 
now, add a few more lines to the program so that it uses the player's 
name. Once you've done that, and before you read my version below, 
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try to write in a line so the ZX80 won't print .. SHOTS TO GO on the 
shot which fills the screen with BANC... This is my final version of the 
program: 









































10 PRINT ,"RUSSIAN 05 PRINT 
ROULETTE" 10 IFG = 6 THEN GOTO 
20 PRINT (С) HARTNELL 39 (you'll see why 139, 
1980" rather than 149, by 
22 PRINT reading 139) 
24 INT “WHAT IS YOUR 20 IFJ = 10 THEN GOTO 
NAME?” 60 
26 INPUT A$ 30 IF J «10 THEN СОТО 50 
27 PRINT 139 CLS (this clears the screen 
28 PRINT for the big BANC) 
30 PRINT "DO YOU WANT 40 RINT "BANG...^; 
O PLAY, "АБ 2” 50 GOTO 140 
32 INPUT B$ 160 PRINT "YOU HAVE 
33 CLS SURVIVED, '5A$ 
34 F B$ — "NO" THEN 62 PRINT "DO YOU WANT 
GOTO 180 ANOTHER GO?" 
40 LET) = 0 64 INPUT C$ 
50 PRINT "PRESS NEWLINE 65 CLS 
TO FIRE^ 66 IF C$ = "YES" THEN 
60 INPUT T$ GOTO 40 
70 CLS 80 PRINT "CHICKEN..." (I 
80 LET] =J+1 removed the STOP 
9) LET G = RND (6) statement here so the 
95 PRINT A$;", "^10 — following line, 190, could 
“SHOTS TO GO" serve for a NO response 
96 PRINT to 162, as well as for the 
97 PRINT NO response to 34.) 
100 IF С <6 THEN PRINT, 190 GOTO 180 


“ CLICK " (with a SHIFT 
A on each side of the 
word CLICK, within the 
quote marks) 


Now, before we leave Russian roulette games, we'll look at one final 
version that introduces you to a new command, and shows a slightly 
different conversational approach. SAVE your final version of 
RUSSIAN ROULETTE on cassette, then clear the memory, and input 
the following program: 


10 PRINT ,"RUSSIAN 25 PRINT “HE GUN-TOTER. 
ROULETTE (3)” YOU HAVE” | 

15 PRINT (С) HARTNELL 30 PRINT "A PISTOL WITH 
1980" ONE BULLET IN IT." 

20 PRINT 
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PRINT "YOU WILL SPIN 
THE CHAMBER" 

PRINT "AND FIRE 10 
TIMES." 

PRINT "ARE YOU GAME 
O PLAY?" 

INPUT A$ 

LET} = 9 

PRINT 

F A$ = "NO" THEN 
COTO 185 

PRINT "PRESS NEWLINE 
ГО FIRE" 

NPUT T$ 





PRINT 
PRINT 

PRINT 

ETJ —J +1 

LET G = RND(6) 
PRINT ,"SHOT 
NUMBER ”;) 

IF G « 6 THEN GOSUB 
95 

FG = 6 THEN СОТО 
220 

FJ = 10 THEN GOTO 
40 








30 
35 
140 

45 
50 


55 
60 


65 
70 
80 


85 
90 
95 
200 





210 


215 
220 
225 


F J <10 THEN GOTO 70 
CLS 
PRINT 

RINT 

PRINT ,"YOUVE 
SURVIVED." 

RINT "IF YOU WANT 


TO RISK DEATH AGAIN” 
RINT "PRESS C FOR 
GO...OR 5 FOR STOP" 
NPUT B$ 
CLS 
F B$ = "G" THEN 
GOTO 55 
PRINT “COWARD...” 
СОТО 185 
LET H = RND(2) 
FH = 1 THEN PRINT "$ 
CLICK $” (use a 'shift S' in 
place of the dollar signs) 
FH = 2 THEN PRINT 
“EMPTY CHAMBER” 
RETURN 

PRINT “BANG...” 

GOTO 220 




















You'll notice as you play this that an empty chamber (i.e. G 6) gives 
you either CLICK or EMPTY CHAMBER, which, as you can see, is 
generated by the lines 195 to 215. The ZX80 leaps to 195 from 115 on 
the command GOSUB 195. 

Lines 195 through to 215 make up a “subroutine”. Whenever the 
computer comes across a GOSUB command, it goes to the line 
specified, and follows on until it comes to command RETURN. The 
computer then returns to the line after the GOSUB command. The 
GOSUB/RETURN is a very useful feature. We'll be using it again. 

You will recall that when you first worked out how to get the 
computer to fill the screen with the word CH CKEN that it made quite 
an attractive pattern. We are going to look now at a slightly more 
developed form of pattern-making program, which uses the FOR/NEXT 
loop to limit the number of times the sequence of letters or spaces is 
repeated. We will be looking at the FOR/NEXT loop in detail a little 


later. 
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Pattern 
Makers 


The core of this program is simple. Feed it into your ZX80 and after 


pressing RUN, input any six of 
NEWLINE. 
10 INPUT A$ ` 
20 FORJ = 1Т0 75 

You сап run this program, whic 
combination of let 
one or two spaces, 


he graphical symbols, then press 


30 PRINT A$; 
40 NEXT J | 
h is surprisingly effective, using any 


ers, numbers and symbols you like. You'll find that 
instead of letters, enhance the pattern produced. 


Try a few more patterns, using spaces, letters like M and W, the $ sign 


and the numbers 6 and 9. 
Before reading on to see how 1 
core program you 
instructions; and 
having to go bac 





have done it, try to write around the 


ave to include the following features: (a) a title; (b) 
(c) the chance to form another pattern without 
into the command mode and press RUN again. 


i i ^ i МУП. 
Cover up my version until you've tried your о 


One way (and t 

done it) is as follows: 

1 PRINT ,"PATTERNS" 

2 PRINT , "(C) HARTNELL 
1980" 

3 PRINT 

6 PRINT "PRESS ANY 
COMBINATION OF 6" 

7 PRINT "LETTERS, 
SYMBOLS AND 
SPACES..." 

8 PRINT 

9 PRINT “AND I WILL 
PRINT A PATTERN” 

10 INPUT A$ 

15 CLS 








here is an infinite number of ways you could have 


20 FORJ 1 TO 75 


30 PRINT A$; 

40 NEXT J 

50 PRINT” ^: (24 spaces 
here) 


60 PRINT "DO YOU WANT 
ANOTHER GO?" 


70 INPUT B$ 

75 CLS 

80 IF B$ = "YES" THEN 
GOTO 6 


90 PRINT "OK. SEE YOU 
LATER, ARTIST” 
100 STOP 
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This is quite an addictive program. The simplest combination of 
symbols (like three of shift W, two of shift Q and a space) produce 
almost three-dimensional patterns. If you set this program up for one 
of your friends to try, be ready to wait a long, long time before you 
next have a go. 


Building a Library 


| hope you've been SAVEing the programs you create as you go 
along. There is little point in having to input the whole program by 
hand every time you want to run it. 

Resist the temptation to put all your programs on one cassette, one 
program after another. The frustration you'll experience searching 
through the tape (even if you've identified each program with a voice 
label) to find a particular program is just not worth the trouble. Go to 
your computer shop, or buy by mail from one of the many companies 
that advertise in the personal computing magazines, and get a set of 
C412 cassettes. Put just one program on each cassette, with two copies 
of each program on each side, just in case something happens to one 
of the copies and you find it difficult, or impossible, to LOAD. 

Write the name of the program on the cassette, and on the 
cardboard insert. You'll find this makes it very easy to find the 
program you want, and as your library builds, it will give you quite a 
feeling of accomplishment to see all those programs ranked side by 
side. It will impress your friends as well, who will believe after visiting 
you, and playing with your ZX80, that you're some kind of natural 
computer genius (which you probably are). 








Review 


Let's review the ground we've covered so far; 


— Тһе use of the random — The assignment statement 
number generator LET J LET 
= RND(X) — The use of , and; in 

— The output statement PRINT statements 
PRINT 


Zeddy page 16 











— The control statement — How to develop a game 
1F..THEN... program from the core of 

— Тһе use of strings (A$), it, to make it more 
including the use of a elaborate and interesting 
string to stop a program — Subroutines (with the 
until NEWLINE is pressed commands GOSUB and 

— The statement CLS RETURN) 

—. The symbols < and > — How the string, 

-- e statement AND FOR... TO... /NEXT, and 

— The control statement PRINT can be used to 
STOP generate patterns. 

— The control statement 
FOR...TO/NEXT 

— Тһе form and use of a 








“counter” to limit the 
number of times part of a 
program is run through 
We've come quite a long way in a short time. Make sure you 
understand all the preceding materiat before going on. 





For/Next 


You'll remember when we wrote the first PATTERN-MAKER 
program, we used (in line 20) FOR ] = 1 TO 75, and (in line 40) NEXT J. 
We will now have a look at the use of FOR/NEXT loops in some detail. 

First, input the following program: 

10 LET] — 0 4 LET) =j+1 
20 PRINT “J = 41 50 GOTO 20 
30 IF J = 10 THEN STOP 

Run it a few times, then clear the RAM and input the following 
program, which uses the FOR/NEXT loop: 
10 FORJ =1TO10 
20 PRINT “J =”; 

30 NEXT ] M 

You can see that running this program produces exactly the same 
result as running the preceding one, although this second program is 
only three lines long, two shorter than the first program. It is not 
always possible or desirable to use a FOR/NEXT loop as a "counter", 
but because it uses less memory than the (ЕТ) = (LET р = ] +1 
approach, it should always be investigated. 
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When you run a program with a FOR/NEXT loop, the computer goes Input the following program, and run it: 


| 
from line to line after the FOR statement until it finds the NEXT | 10 PRINT “COIN FLIP — 1” 40 IF | = 2 THEN PRINT 






































command, when it reverts to the FOR line. You can place one (or more) 20 LETJ EX ND£2) “TAILS” 
FOR/NEXT loops inside another. Add the following lines to the current 30 IF J = 1 THEN PRINT 50 STOP 
program: "HEADS" 
22 FORK =1TO2 Once you've run this a few times, amend the program as follows: 
25 PRINT K 10 PRINT , “COIN FLIP — 2” 50 PRINT "TO FLIP AGAIN 
27 NEXT K 20 LET J = RND (2) PRESS F^ 
Run this. It is important to make sure that each loop nests neatly 30 IF J = 1 THEN PRINT 60 INPUT A$ 
within each other loop. That is, if you placed the NEXT K command "HEADS" — Б 70 IF A$ = "F" THEN СОТО 
after the NEXT J, so the loops cross, you get a rather unsatisfactory ET 40 ІРІ = 2 THEN PRINT 20 
result, Try it, by renumbering line 27 as line 35 (making sure you delete “TAILS” 80 STOP 
the "old" line 27). - You can run this until the screen is full. Although there will probably 
Finally, here is a remarkably effective double FOR/NEXT loop m be an imbalance in the numbers of HEADS and TAILS, the longer you 
program: = run the program, the more the ratio of each should approach 1:1. If we 
А n - - knew how many times we had flipped the coin, it would make it easier 
? PRINT YOUR NAME IN % FOR S et Sys to work out how many HEADS and how many TAILS the program had 
10 КОЮ) =1TO6 50 МЕХТ 5 ' printed. It is fairly simple to amend the program to do this. Try it 
20 PRINT ,"(put your first 60 NEXT J yourself, before looking at my version. 
name here)"; 10 PRINT “COIN FLIP — 3" 70 ЕТК =K +14 
This is a good program to run for your more egocentric friends 20 LET K-1 80 PRINT “TO FLIP AGAIN 
m ` ` 30 LET J = RND (2) PRESS F” 
40 PRINT "FLIP NUMBER 90 INPUT A$ 
SKISS 100 IF A$ = "F" THEN СОТО 
5) IF] = 1 THEN PRINT 30 
"HEADS" 110 STOP 
60 IF jJ = 2 THEN PRINT 





“TAILS” 
Once you've run this a few times, and added up the HEADS and 
TAILS, and then worked out what the ratio of HEADS to TAILS is, you 


ш will probably have realised the ZX80 can do ай the work — flip the 





coin, count the heads and tails, and then manipulate this result as you 
choose. Let's try a more complex program: 

















10 PRINT ,"COIN FLIP — 4" 90 IF] = 1 THEN LETH = 
20 LETH = 0 Ho 
30 LETT = 60 100 IF J = 2 THEN LETT = 
49 LETK =1 T1 
50 LET J = RNDQ) 11@ PRINT “OUT OF 
60 PRINT ,"FLIP "КУ" FLIPS YOU HAVE" 
NUMBER '5K;" 15”; 120 PRINT H; "HEADS 
The computer can be used to simulate a huge variety of things, from 70 ІР j= 1 THEN PRINT AND T; TAILS 
the growth of plants to the effects of bumps on the road on HEADS 130 LETK=K t 1 
. А ` { 80 IF] = 2 THEN PRINT 140 PRINT "PRESS F TO FLIP 
motorcycle suspension. We are going to look at a more homely a "TAILS" AGAIN” 


example of simulation: flipping a coin. 
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150 INPUT А5 80 PRINT “THANKS FOR 


60 CLS PLAYING. BYE” 
170 aH = “F” THEN GOTO 90 STOP 


You wil find that adding PRINT statements for lines 105, 106 and 
07 will make the program, when running, easier to read Now we 
cou d use a FOR/NEXT loop to tell the ZX80 in a vance how many 
times we wanted to flip the coin, and then we could leave it to do the 
work. For practice, l'd like you to produce such a program which also 
asks the p ayer at the beginning how many times he or she wishes to 
lip the coin. | am not going to give you a sample version of this 
because | think by now you should be able to write such a program 
easily. What 1 am going to give you t ough is another version of the 
rogram, that gives approximate percentage breakdowns of heads and 
tails. Тһеу аге approximate because the ZX80, as you know, rounds 
numbers to the nearest whole integer. First write your program using 
те ОКАТ loop, SAVE it, and then have a look at my final COIN 





















































0 PRINT ,“FLIP-A-COIN” 20 PRINT "OUT ОЁ”; 
5 PRINT (С) HARTNELL K;" FLIPS YOU HAVE” 
1980" 30 PRINT “APPROX. ”: 
20 LETH = 9 B." PER CENT TAILS” 
30 LETT = 9 40 PRINT “AND А; PER 
40 LET K — d CENT HEADS" 
50 LET J = RND(2) 42 PRINT 
55 PRINT 47 PRINT 
57 PRINT 150 P “ 
60 PRINT "FLIP И AGAIN PRESS F TO FLIP 
NUMBER К; IS "^ 55 LETK = K +1 
70 1F J = 1 THEN PRINT 60 INPUT A$ 
“HEADS” 70 CLS 
80 IFJ = 2 THEN PRINT 75 IF AS = “F” THEN GOTO 
“TAILS” 50 
90 IF} = 1 THEN LETH = 80 IFK — 2 THEN GOTO 
+1 95 
100 IF J = 2 THEN LET T = 81 PRINT 
T41 82 PRINT 
105 PRINT 85 PRINT "YOU FLIPPED 
106 PRINT THE COIN ^K —1; 
107 PRINT “TIMES и" 
110 IF K = 1 THEN GOTO 86 PRINT 
50 87 PRINT,“HAD As" 
111 LET A = H*100/K CENT HEADS PER 
112 LETB = T*100/K 88 PRINT | 
113 ТЕА + B «100 THEN 


LETA = А +1 
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"- 


189 PRINT ,"AND '5B;" PER 193 PRINT 


CENT TAILS” 194 PRINT 
190 PRINT 195 PRINT "THANKS FOR 
191 PRINT PLAYING. BYE” 
192 PRINT 200 STOP 


There are a few points you can learn from examining this program. 
Up to line 100, there is nothing new. Line 110 (IF К = 1 THEN СОТО 
150) bypasses all the percentage computation, because there is no 
need for it if you have only flipped once. Lines 111 and 112 multiply 
the numbers of heads and tails by 100, then divide by the total number 
of flips. Because the ZX80 rounds off number when dividing, it is best 
to get the number as high as possible before rounding off. If line 111 
was changed to: LET A = (H/K)*100 it would produce far less accurate 


results. Try it and see what happens. 
Line 113 adds the two "percentages" together, and if they equal 99 


(which will happen pretty often) 1 is added to the HEADS’ percentage, 
just to make the two pércentages add up to 100. Line 180 (IF K — 2 
THEN СОТО 195) is used if the player decides to stop after two flips. 
The information given by lines 185 to 189 is only of interest if the coin 
has been tossed three or more times. Line 195 is just a friendly way of 
ending. Many times, when you write a program, you'll use nearly all 
the RAM just for the program, so you will not have room for niceties 
like goodbyes. However, whenever you have room in the memory, it is 
a good idea to make the program more "user-friendly" and make the 
ZX80 "conversation" as natural as possible. 








Decision Maker — Mark 11 


One of the first programs we developed was a simple decision 
maker. Let us look now at the more complex program to make 
decisions. This program will show how strings can be used by the ZX80 
to form complete sentences, and will also demonstrate a memory- 
saving way of using the random number generator. Input the following 


program: 





10 PRINT ,"DECISION 20 INPUT A$ 
MAKER — 2” 22 CLS 

11 PRINT ,"(C) HARTNELL 25 PRINT A$;", ТАМ НЕКЕ 
1980" TO HELP YOU" 

12 PRINT 26 PRINT ,"REACH A 

15 PRINT “НІ, WHAT 15 DECISION" 
YOUR NAME?" 27 PRINT 
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28 PRINT “JUST COMPLETE 300 PRINT "YOU MUST BE 
THE FOLLOWING" CRAZY, 'A$;", TO THINK 

29 PRINT "SENTENCE YOU MIGHT ":B$ 
(WITHOUT USING THE” 305 GOTO 600 

30 PRINT "WORDS |, ME 400 PRINT “СЕЕ, 'A$;", ITS 
OR MINE)” A TOSSUP WHETHER 

31 PRINT “COMPLETE THIS: YOU ”;B$;" OR NOT” 
SHOULD 1...” 405 СОТО 600 

32 INPUT B$ 600 PRINT 

33 CLS 610 PRINT 

35 LET J = RND (4) 620 PRINT "ANOTHER 

36 СОТО 190*] (this is the DECISION, ^5A$;"?" 
memory-saving trick) 630 INPUT C$ 

100 PRINT "IF 1 WERE 640 CLS 
YOU, “АФ ", 1 WOULD 650 IF C$ = "YES" THEN 
NOT"B$ GOTO 27 

105 СОТО 600 660 PRINT "THANKS FOR 

200 PRINT "SURE, '^A$; LETTING ME” 
“BS 670 PRINT “HELP YOU, ';A$ 

205 GOTO 600 680 STOP 












Number 
Crunching 


The programs we've worked on so far have ignored the great, and 
fundamental ability the ZX80 has to work with numbers. 
Input this program into your computer: 


10 PRINT “MATHS 20 INPUT A 
DEMONSTRATION” 25 PRINT ,"A SECOND 
15 PRINT “GIVE ME A NUMBER, PLEASE" 


NUMBER" 30 INPUT B 


Zeddy page 22 








j E H 
i ü 8 


| 
й 


a ^ 
E | 


{ 








35 PRINT "AND ONE 50 PRINT A; MULTIPLIED 
МОКЕ” BY 'B;", DIVIDED BY” 
40 INPUT C 55 PRINT C;" EQUALS ‘GK 


45 LET К = A*B/C 

Run this through a few times, with different values for A, B and C. 
Notice how, in lines 50 and 55, when using PRINT, the ZX80 substitutes 
the values assigned to A, B and C. It prints the number rather than the 
letter. 

Now, change lines 45, 50 and 55 as follows: 

45 LET K = (A + 50 PRINT K 
CY(B--C — A) 55 STOP 

Run this a few times. Use numbers less than 100 to remove the risk 
of К being greater than 32767 or less than — 32768 (which will stop the 
program, giving you error code 6). 

We can use a program of this type to do practically any maths 
problem, no matter how complex, so long as the numbers involved do 
not exceed the limits given above, and decimal places are not 
important (the ZX80 works only on whole numbers, integers) or, if they 
are, a subroutine is used to generate them. We'll use the basic 
mathematical ability of the ZX80 to produce a rather interesting 














demonstration program you can run next time you have a couple of 
friends around. 
10 PRINT, NUMBER 125 INPUT D$ 
JUGGLE” 130 CLS 
30 PRINT "NAME OF 135 PRINT АБ, “SUBTRACT 
PLAYER?" SEVEN” 
Аф  INPUT A$ 140 PRINT "AND TYPE IN 
65 CLS THE RESULT” 
70 PRINT A$“, THINK OF A 145 INPUT A 
NUMBER AND" 150 CLS 
75 PRINT “DOUBLE IT^ 175 LET = (A202 
95 INPUT C$ 185 PRINT "YOUR 
100 CLS NUMBER, ^; 
120 PRINT АБ”, ADD FIVE” A$,", WAS ‘SK 
Now that did not, perhaps, seem very startling, although it is fairly 
impressive the first time you try it on someone. Note how the strings 
C$ and D$ were used to stop the program until you pressed NEWLINE, 





how CLS was used to clear the screen after each instruction, and how 
the final line (185) used the name string (A$) and the assigned variable 
(K) to print out your answer. 

Before you read on, work out a way of letting the program give you 
the chance to have another go. Type your version in at the end of the 
program, and see if it works. One way would be as follows: 


200 PRINT "ANOTHER СО?” 215 IF Z$ = "YES" THEN 
205 INPUT Z$ GOTO 65 
230 STOP 
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Once you've run through this program a few more times, you're 
probably pretty bored with it. Remember that a computer can, within 
the limits of its memory, store a great deal more information than just 
one simple mathematical manipulation. This game program becomes 
a great deal more interesting when you interweave a second set of 
instructions into the first, so a second player can “think of a number" 
and so on, at the same time as the first person is doing so. I'll list the 
whole program. Apart from a word to be added to line 30, and some 
possible differences in the lines 200 and beyond (the lines that offered 
you a second run), you should be able to add the lines from the 









































following program in between those you already have in the 2Х80%5 

memory. 

10 PRINT ,"NUMBER 35 PRINT A$;", SUBTRACT 
UCGLE” SEVEN” 

20 PRINT ,"(C) HARTNELL 40 PRINT "AND TYPE IN 
1980" THE RESULT” 

25 NT 45 INPUT A 

30 RINT "NAME OF FIRST 50 CLS 

AYER?” 55 PRINT B$;”, | WANT 

40  INPUT A$ YOUR TO SUBTRACT” 

45 NT 6@ PRINT “FOUR THEN 

50 PRINT “NAME OF TYPE IN YOUR RESULT” 
SECOND PLAYER?" 65 INPUT B 

60 INPUT B$ 70 CLS 

65 CLS 75 LET K = (A + 2)2 

70 PRINT A$;", THINK OF A 80 FTL (В + 43) — 6 
NUMBER AND” 85 PRINT “YOUR 

75 NT “DOUBLE IT" NUMBER, ”;A$; 

80 PRIN " WAS Ж 

85 PRINT B$;", THINK OF A 90 PRINT 
NUMBER AS WELL” 95 PRINT “AND YOURS, ”; 

90 PRINT "AND ADD SIX B$”, WAS “А 
TO IT^ 200 PRINT ,"ANOTHER GO?” 

95 NPUT C$ 205 INPUT Z$ 

100 CLS 210 CLS 

105 PRINT B$;", | WANT YOU 215 IF Z$ = "YES" THEN 
TO MULTIPLY YOUR" GOTO 65 

110 PRINT "NUMBER BY 220 PRINT "OK, '5A$" АМО” 
THREE" $;", THANKS” 

115. PRIN' 225 PRINT “FOR PLAYING. 

120 PRINT A$;", ADD FIVE" YE BYE." 

125 INPUT D$ 230 STOP 

130 CLS 


Try this out with a couple of friends, and watch their reaction. 
| want to introduce you now to a little trick which can add a lot to 
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games programs (even though it will probably horrify computer 
purists). The ZX80 works very, very quickly. So quickly, in fact, that its 
responses appear to be instantaneous. Although this is fine for 
"serious" use of a computer, it detracts in some measure from games. 
You'll find that games are more interesting if the computer appears to 
be "thinking" between moves, rather than responding as soon as you 
hit NEWLINE. So, we can introduce a subroutine which will slow 
things down a bit. 

Add the following: 
240 FOR] = 1 TO 200 255 NEXT | 
250 CLS 260 «RETURN 


Now, go through the program, and change all the lines which have 
the instruction CLS to GOSUB 240. Now, run the program again 
Notice how much more effective this seems, with just the right delay 
for the computer to "think and reach a decision". You could have 
other numbers in line 240. Try it as FOR J = 1 TO 599. You'll find this 
delay is far too long. So long that you'll get irritated. Using 300 also 
produces too long a delay. To me, 200 seems about right. You can use 
the subroutine delay in any games you like. As an exercise, try adding 
it to an earlier program, like RUSSIAN ROULETTE, and seeing if this 
adds to the playing of the game. 

The general form of a "game delay": 


Line Number FOR X = п, ТО п, 

Line Number CLS 

Line Number NEXT X 

Line Number RETURN (if the delay is a subroutine). 

As a general rule, you can insert a delay subroutine whenever you 
would normally use the CLS instruction. When you're feeding in a 
program that is likely to come pretty close to using all the ZX80's 
RAM, do not input the delay subroutine until you've got the rest of the 


program in. Use a CLS line instead, and if and when you find there is 
enough memory left for a delay subroutine, put that in. 








Writing a Program — 
Some General Thoughts 


Most books on programming suggest you start by drawing up a 
"flowchart" — a pretty combination of circles, diamonds and slanting 
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rectangles — which 


sets out the path and operations the computer 


will follow to execute a program. In theory, this is fine. But in practice, 


especially when wor 


ing with a relatively small memory such as in the 


ZX80, the time and trouble involved is probably not worth it. 


it is, however, e 
computer to do be 


ssential to know exactly what you want the 
Ore you start creating a new program, even if 


you're not quite sure how you are going to get the ZX80 to carry out 


the task. 

Sometimes a roug 
steps the ZX80 will t 
will help to clarify ү 
potential problems, li 
not specifying the nat 

For what it's worth, 
Having worked out t 


h sort of flowchart — just writing down the main 
ake and then linking these by lines and loops — 
our thinking. This is also a good way of spotting 
e the danger of setting up infinite loops, or o 
ure of the computer's decisions exactly. 

i work as follows: 

he general idea for a game (like "player thinks o 


an animal, computer tries to guess which animal”) | then just think 


about the idea for a w. 





hile. | might not write anything down for even a 





day or more. Usual 


y, this "thinking time" allows me to work out 


roughly how the core of the program is going to look. Next, on paper, 
write down this core, starting with line number 100. This ensures there 
is plenty of room at the start of the program to add a title and 
instructions, define constants, set up arrays and the like. 

The next stage is to feed the rough program into the ZX80 and see i 
it does what it is meant to do. Often a far more elegant method than 
the first rough version is found at the keyboard, but this would 
probably not have been discovered if the written version was not trie 
first. 

Occasionally, if | get a clear idea for a program and I cannot get to 
the ZX80, 1 will write out the entire program by hand in advance. 
Sometimes (like the race game LONDON TO GLASGOW), a program 
works almost perfectly the first time. Other programs (such as 
MASTERMIND) turned out to be near disasters, so the final version 
bears little more resemblance than title and intention to the original, 
hand-written version. If you're working on a fairly simple game, or are 
adapting from a magazine or book, it is just as well to work directly on 
the ZX80, but keep a notebook handy to record things like the fact 
that, for example, string A$ is for the player's name. 

If you're writing a program direct on the keyboard, and you want to 
add a subroutine which will eventually be at the end of the rest of the 
program, give it a very big number (like 5000) It can easily be 
renumbered afterwards (and the GOSUB command changed). This is 
simpler, and more elegant, as well as using less memory, than having 
to use a GOTO to jump over a subroutine which has been given too 
low a line number. 

Н there is a phrase that you'll need the computer to print at several 
parts of the program, such as "THE SCORE AT THIS POINT IS", assign 
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a string to this phrase as soon as you realise you're going to have to 
place the line in several different places in the program. A lot less 
memory is involved in the line PRINT B$ appearing six times, than in 
six of PRINT "THE SCORE AT THIS POINT IS". If the information to 
be included several times is longer than one line, a subroutine is 
probably the most memory-efficient device to use. Later on this book 
looks at a program which makes use of a large number of strings for 
phrases which are used over and over again (LONDON TO GLASGOW) 
and when you come to the game, you'll see how efficient a process 
this can be. 









Extra-Sensory 
Perception 


The next program we will look at uses the ZX80's "greater than" and 
“less than” facilities to compare two numbers, and then make a 
decision on the basis of whether one number is less than, or greater. 
than, the other. This program also makes use of many of the things 








we've covered so far, including the IF... THEN, the counter and the 
random number generator. 
Input the following program: 

10 PRINT "GUESS MY 75 IFJ = A THEN СОТО 
NUMBER" 105 

45 PRINT "WHAT NUMBER, 80  IFA <] THEN PRINT 
BETWEEN 1 AND 100, "HIGHER" 
AM E THINKING OF?” 85 IF A >J THEN PRINT 

50 LET] = RND (99) “LOWER” 

55 LETS = ф 90 1Е5 <5 ТНЕМ GOTO 60 

60 LETS = 5 +1 95 IFS = 5 THEN СОТО 

65  INPUT A 130 

7) PRINT A 
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105 PRINT "YOU ARE RIGHT. 
I WAS THINKING OF 4 

110 GOTO 140 

130 PRINT "TIME IS UP. I 
WAS THINKING ОҒ) 

140 PRINT "DO YOU WANT 
ANOTHER GO?" 


Notice how the core of the program 


145 
150 
155 


160 


decision on what the ZX80 is to do next. 

This program, in its present form, has only used up a part of the 
ZX80's memory. It is possible to dress the program up a bit, by giving 
the computer your name, and — as you'll see — giving it the ability to 
award the player a random payoff if the number is guessed correctly. 
Try this new form. Some of the original program remains, but certain 


lines have to be replaced, and others added. 


10. PRINT “GUESS MY 


NUMBER" 

15 PRINT ,“(C) HARTNELL 
1980" 

20 RIN 

25 PRIN 





30 PRINT "HI, WHAT IS 
YOUR NAME?" 
35 NPUT A$ 








40 CLS 

45 PRINT “WHAT NUMBER, 
BETWEEN 1 AND 100, 
AM 1 THINKING 
OF, VAS?” 

50 LET J = RND (99) 

55 LETS = 6 

6) LETS = S 1 

65 INPUT A 

70 PRINT „А 


75 IF J = A THEN GOTO 
100 (note change from 


105) 
80 IFA <] THEN PRINT 
"HIGHER" 
85. IFA >] THEN PRINT 
© “LOWER” 


90 1Ё5<5ТНЕМ GOTO 60 
95 FS = 5 THEN GOTO 
130 





00 
05 


10 


15 
20 
125 
30 


35 


40 
45 


50 
55 
60 


65 





70 


INPUT H$ 

CLS 

IF H$ = "YES" THEN 
GOTO 25 

STOP 


(lines 50 to 95) make the 


ET K — RND (3) 
PRINT "YES, | WAS 
THINKING OF 42421 
IEREBY AWARD YOU 
THE TITLE ОР”; 

FK = 1 THEN PRINT 
" SMART ALEC OF THE 
YEAR, '5A$ 
FK = 2 THEN PRINT 
" MASTER OF ESP, “Аф 
FK = 3 THEN PRINT 
^ JERK OF THE 
EYBOARD, ” АФ 
СОТО 140 
PRINT "YOU ARE 
STUPID, '5A$;". 1 WAS" 
PRINT ,"THINKING OF 











PRINT "DO YOU WANT 
ANOTHER GO?" 
INPUT N$ 


Е N$ = "YES" THEN 

















PRINT "THANKS FOR 
PLAYING, “Аз 
STOP 


When you run this program, you'll find the lines 105 to 120 wrap 
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around to the following line when printing. This is not a good feature. 
As an exercise, try and rewrite this section so the lines print separately, 
so you do not run the risk of having à word cut in half, with one half on 
one line, and the next on the other. (Hint: you'll need two more СОТО 
146 instructions). 









be 
10 


20 
39 
40 


45 


50 
55 
60 


65 
70 
75 
80 
85 
90 


It is possible to use a very similar core to pro 
a completely different program. Input the fo 
PRINT "CHOPPER — (C) 
HARTNELL 1980" 


PRINT 
PRINT 








PRINT "A DEADLY 
CHOPPER IS HIDING" 








PRINT "BEHIND 1 OF 16 
TREES" 
RINT 
PRIN 
PRINT "YOU HAVE ONLY 
6 SHOTS. OK?" 
NPUT A$ 
CLS 
LETG = ф 
LET Т = RND (16) 
PRINT, "069" 


PRINT,,"(shift A twice, 


shift G once, shift A 


twiceY' 


Kill 


95 PRINT 


00 PRIN’ 





the 


Chopper 


uce what appears to 
lowing: 
"(shift Q, space, 


shift С, space, shift О)” 


"(shift Q, three 


spaces, shift О)” 
05 PRINT,,"(shift Q five 











220 


times)” 

10 PRINT,,"(space, shift A, 
space, shift А)” 

15 PRINT ` 

20 PRIN 

25 PRINT "GUESS THE 

, NUMBER OF THE TREE” 

30 PRINT 

35 PRINT ,"YOU WANT TO 
SHOOT AT^ 

40 LETG —- Gc 1 

45 INPUT M 

50 CLS 


55 ІЕМ = J THEN GOTO 
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160 IFG = 6 THEN GOTO 225 PRINT " @ ((after the two 
195 zeros, space, two shift A, 
165 PRINT "YOU MISSED, ^; space, shift W, space, 
6 — G^" TO GO" shift QY' 
170 PRINT 230 PRINT"'(three spaces, two 
175 PRINT shift A, seven spaces, shift 
180 IF M < J THEN PRINT D, space, shift D)" 
“TRY TO THE RIGHT” 235 PRINT 
185 IFM >) THEN PRINT 240 PRINT 
“TRY TO THE LEFT” 245 PRIN 
190 ІЕС « 6 THEN СОТО 85 250 PRINT "PRESS 2 FOR 
195 PRIN ANOTHER GO" 
"AAAAAAAAARGHH....." 255 PRINT ,"OR 4 TO 
200 PRINT CHICKEN OUT” 
205 PRINT 260 INPUT T 
210 PRINT "HE WAS BEHIND 265 IF T = 2 THEN GOTO 70 
TREE NUMBER '^J 270 CLS 
215 STOP 275 PRINT ,“СНІСКЕМ” 
220 PRINT ,"GOT HIM" 280 STOP 
The idiotic appearance of the "chopper" was chosen at random. (It 
was named after my dog.) Make up your own name and appearance 


for your beastie (making sure its "dead" version looks vaguely like a 
deflated version of the live creature). You can also alter the value of J 
(the number of trees) and/or G (the number of shots you get before 
being killed). 

This framework can also be used for, say, vultures hiding in nests, 
poisonous snakes in holes, or even unfriendly aliens in space, lurking 
behind asteroids. The “conversation” parts of the program can also be 
altered to what ever form you choose. 

A little gimmick you can add to this {and any other program you 
like, assuming you have enough money for it) is to get the program to 
ask the player’s name. You work out a subroutine which ensures the 
computer will only play with you (or with people fortunate enough the 
share your name). If any other name is fed in when the ZX80 asks who 
is playing, it goes straight to STOP. As an exercise, work out such a 
subroutine and add it to your version of CHOPPER. 
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Days of 
Our Lives 








Let's go back now to number-crunching, and have a look at a 
program which gives interesting (and sometimes scary or absurd) 
information on how long the player has to live. A little later on in this 
book is a program designed to give a proper look at life expectancy, 
but that program is a little more complicated. For now, this program 
— DAYS OF OUR LIVES — produces a pretty good demonstration of 
your ZX80, and the less mathematical of your friends will be 
convinced, yet again, that you are some kind of genius. 

What the program does, in essence, is work out approximately how 
old the player is in days, and compares this with average life 
expectancy (67% years for males, 74% for females). It also assumes 
the player sleeps eight hours a night. Input the following program and 
run through it a few times. Then read the discussion that follows the 
program listing. 





10 PRINT "DAYS OF OUR 65 INPUT A 
LIVES” 70 PRINT “AND MONTHS?" 
15 PRINT “С) HARTNELL 75 INPUT В 
1980” 80 LET X = 365*A + 30*B 
20 PRINT 85 CLS 
25 PRINT "HI, WHAT IS 90 PRINT "YOU ARE ^;X; 
YOUR NAME?" " DAYS OLD, "A$ 
30  INPUT A$ 95  INPUT C$ 
35 CLS 100 PRINT ,"ARE YOU 
40 PRINT "OK, 'A$;", LETS FEMALE?" > 
WORK OUT SOME" 105 INPUT D$ 
45 PRINT "INTERESTING 110 CLS 
THINGS ABOUT YOU” 115 IF D$ — "YES" THEN 
50  INPUT B$ СОТО 130 . 
55 CLS 120 LET Y — 24637 — X 
60 PRINT "HOW OLD ARE 125 GOTO 135 
YOU IN YEARS?” 130 LET Y = 27192 — X 
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135 PRINT АБ, YOU 180 INPUT G$ 
HAVE '^Y;" DAYS ТО 185 CLS 
LIVE — BASED ON 190 PRINT "IS THERE 
STATISTICS" ANYONE ELSE THERE 
140 INPUT E$ WHO" 
145 CLS 195 PRINT "WOULD LIKE A 
150 PRINT "YOU HAVE СО, “АБ 2” 
SLEPT FOR ABOUT'X/3 200 INPUT H$ 
155 PRINT ,"DAYS SO FAR" 210 IF H$ = "YES" THEN 
160 INPUT F$ GOTO 25 
165 CLS 215 PRINT "OK BYE, “АҘ 


170 PRINT "AND WILL SLEEP 220 STOP 
FOR ABOUT’;Y/21 

175 PRINT "WEEKS OF YOUR 
REMAINING ИРЕ” 


If you were thinking about what you were feeding into the ZX80, 
you probably have a pretty good idea of what each line and command 
was for, but, if not, look at it on your screen and follow through this 
next section, line by line with your program. 

First of all, of course, the program got your name (A$), then stopped 
at line 5@ waiting for you to press NEWLINE in order for the program 
to continue (and clear the screen at line 55). This stopping of the 
program, as you learned earlier, does not do anything, but makes the 
program much more interesting to run than supplying all the 
information at once. 

The program obtained your age in years (A) and months (B), then 
worked out what this was in days (line 80, which assumed there were 
30 days in a month). Next the ZX80, in line 90, told you what this figure 
was (X). The question in line 100 — ARE YOU FEMALE? — is needed 
because males and females have different life expectancies. If D$ (the 
answer to the line 100 question) is YES, the computer goes to line 130, 
where it subtracts your age in days from the life expectancy (74% 
years, converted to days) for females born after 1961 (it is only half a 
year less for females born 1951 — 1960). If the answer is not YES, the 
computer moves to the next line (120) and subtracts your age in days 
from 24,637 days, the life expectancy for males born after 1960 (again, 
it is half a year less for males born 1951 ~ 1960). 

Line 135 prints how many days after are left. Lines 150 and 155 give 
the number of days slept so far (your age in days, divided by three), 
assuming you sleep eight hours a night. Then the ZX80 takes your 
remaining expected days (Y), divides this figure by three (to get the 
days spent in sleep) and then divides this by seven to convert this 
figure to weeks. Actually, as you can see, the program simply divides 
by 21 (ie. 3x 7). 

Lines 190 to 210 ask if someone else wants a go, and if so, goes right 
back to line 25, where the string A$ is ready to be assigned to the new 
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name. If there is no-one else to play the ZX80 proceeds to the end of 
the program. 

If you feel like experimenting, there is no reason to stick with the 
program as l've written it. Let it ask, for example, if the player is male 
(changes lines 100 to 130). Instead of the somewhat unimaginative 
farewell (line 215) you might^wish to put in some mournful line like: 
WELL, A$, ] GUESS YOU'D BETTER RUN OFF AND MAKE THE MOST 
OF THE Y/30 MONTHS YOU HAVE LEFT TO LIVE. 

You could also, of course, add a delay subroutine where CLS 
appears in the program (lines 35, 55, 85, 119, 145, 165, 185 and 205). By 
all means experiment with the program, and put your own personal 
stamp on it. By doing this, you'll gain far more knowledge about 
programming than you will just by feeding in the programs in this 
book, line for line, and then leaving them this way. 

If you'd like to work out a whole new program based on the core of 
this program, feed the following program: into your ZX80, and then 
work around it as you choose. 


10 PRINT "HOW OLD ARE 140 PRINT "HAVE 
YOU IN YEARS?" ABOUT'Y;"DAYS TO 
20 INPUT A LIVE,” 
30 PRINT , "AND 150 PRINT "BASED ON 
MONTHS?” STATISTICS” 
40 INPUT B 160 PRINT "YOU HAVE 
50 LET X = 365*A + 30*B SLEPT FOR ABOUT’;X/3 
60 PRINT “ARE YOU 170 PRINT "DAYS SO FAR, 
FEMALE?” AND WILL SLEEP” 
70 INPUT A$ 180 PRINT "FOR 
80 CLS ABOUT'Y/21;"WEEKS 
90 IF A$ = "YES" THEN OF" 
СОТО 120 190 PRINT "YOUR 
100 LET Y — 24637 — X REMAINING LIFE" 


110 СОТО 130 200 STOP 
120 LET Y — 27192 — X 
130 PRINT "YOU 

ARE'^X,"DAYS OLD 

AND” 
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Toying with 
the Muse 


To make a change from working with numbers, here is a program 
that — after a fashion — writes poetry. Most of the poems it comes up 
with are pretty awful, but from time to time you'll get a real gem. And 
even the worst efforts of the ZX80 are not as bad as some of the worst 


modern poetry published today. 
The heart of this program is our old friend the random number 


generator. It also makes use of the memory-saving device of linking 
the number generated to a subroutine. Input the program as it appears 
below, and run it several times. Then read the notes that follow the 
listing. (Note that there is a space just inside the quote marks in the 
"seed-phrase" lines following the command PRINT.) 








1 PRINT , "SEASIDE 70 PRINT " SEAGULLS” 
POETRY" 75 RETURN 

2 PRINT , "(C) HARTNELL 80 PRINT " WAVES”; 
1980" 85 RETURN 

3 PRINT 90 PRINT " ROCKS”; 

4 PRINT 95 RETURN 

5 PRINT "PRESS NEWLINE 100 PRINT " SEAWEED”; 
TO WRITE A POEM" 105 RETURN 

6 INPUT A$ 110 PRINT " HOT"; 

7 CLS 115 RETURN 

10 LET] = RND (21) 120 PRINT " GRITTY’; 

15 IF J = 1 THEN PRINT 125 RETURN 
“4.” 130 PRINT "BEATING, 

20 IF} 21 AND] <5 THEN BEATING”; 
GOSUB 1000 135 RETURN 

30 IF J >4 THEN GOSUB 140 PRINT " HARSH”; 
J*10 145 RETURN 

40 GOTO 19 150 PRINT “ HOURS 

50 PRINT " SUN" PASSING"; 

55 RETURN 155 RETURN 

60 PRINT " SAND" 160 PRINT " ECHOED 

65 RETURN OVER’; 














165 RETURN 200 PRINT “ FAINTLY 








70 PRINT " BRIGHTLY WHISPERED”; 
DREW”; 205 RETURN 
75 RETURN 210 PRINT “ YET AGAIN"; 
80 PRINT " DREAMILY 215 RETURN 
EASED”; 1000 PRINT 
85 RETURN 1001 PRINT 
90 PRINT " SHADOWED 1002 PRINT 
OVER”; 1003 RETURN 
95 RETURN 
When you run this, you'll be quite pleased (or at least | was when | 
irst wrote it) to find out how often, just by chance, quite attractive 
poems (!) are written by the program. Note the high number of 
RETURN commands. You'll remember that after going to a subroutine 


(GOSUB), the program executes the subroutine, then at the command 
RETURN, goes back to the line after the instruction to go to the 
subroutine. In this program, the line after the GOSUB instruction is 49, 
which instructs the computer to go further back, to line 10, to generate 
another random number. The decisions on where to place the 
semicolons 0), which tell the computer to print the next words on the 
same line, were made partly by running the program, and just seeing 
how the words fell, and also by the general decision that half the 
nouns (such as SUN, SAND and SEAGULLS) would end a sentence, that 
is, would not be followed by a semicolon. I also decided that 
adjectives (as in lines 120 and 140) would always allow for a word to 
follow them, and that about half the other "seeds" (lines 150 to 210) 
would do the same. 

By looking at the program listing you'll see the lines 15, 20 and 30 
make certain decisions, based on the random number generated. Line 
15 ensures that, just under 596 of the time, “...” will be printed. Line 20 
prints three blank lines (GOSUB 1000) just under 1596 of the time, and 
line 30 directs the hardworking ZX80 to print one of the "seeds" just 
over 80% of the time. These proportions were worked out by running 
the program over and over again, adjusting the lines 15, 20 and 3@ until 
— the majority of the time — a pleasant poem layout resulted 
Probably you've realised that the program runs until the screen is full 
(which gives a fairly good poem length). If you wanted to limit the 
number of lines in the poem to less than full screen length, you could 
place a counter (дг а FOR...NEXT) at the return target for the GOSUB 
at line 30 (Le. at line 40). The kind of poem the program writes 
depends, as you can see, almost entirely on the words placed in the 
PRINT lines. The best way to decide on the words to go in the PRINT 
statements is to pick one topic, and then make every word and phrase 
relate to this topic. 

The original POETRY program was written when | was on holiday, 
and after producing about 20 SEASIDE POEMS, I decide to input some 
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words and phrases about the city where the program was written. The 
changes in the program produced some remarkably effective poems 
(plus a generous crop of duds). If you want to see how it works, change 
the following lines using the EDIT facility, making sure you put a 
space just inside the quote marks. 

















1 PRINT , " SALZBURG 130 PRINT " MEMORIES IN 
POETRY" STONE"; 
50 PRINT " CHURCHES"; 140 PRINT " STEADFAST”; 
60 PRINT " BAROQUE 150 RINT " TRADITIONS 
TOWERS”; RELIVED^; 
70 PRINT " MOUNTAIN 160 PRINT " ЕСНОЕр”; 
VISTAS”; 170 PRINT " COPPER 
80 PRINT " MUSIC BY DOMES”; 
MOZART”; 180 NT " DREAMING" 
90 PRINT " FORTRESS”: 190 PRINT " SHADOWED 
100 PRINT " COBBLED OVER"; 
STREETS”; 200 PRINT “ FAINTLY 
110 PRINT “ TIMELESS”; WHISPERED’ 
120 PRINT " BELOVED”; 210 PRINT " YET AGAIN" 

Try writing a program, using words and phrases based on the last 
place you spent a holiday in, or pick a topic like "clouds", "kittens" or 
"vintage cars"...and see what you, the ZX80 and the Muse can create. 
Here is one poem written from a set of words and phrases about 





London. 

..TOURISTS CROWD ALWAYS MOVING 

RUSHING, PUSHING І HAVE SEEN IT 

BIG BEN CHIMES, AND RIVER THAMES 
CATHEDRAL SPIRES 

ALL BUT FORGOTTEN RUSHING, PUSHING 

PIGEONS IN TRAFALGAR SQUARE 


I HAVE SEEN IT 

AT LAST, SUN. RIVER THAMES 
TIMELESS 

І HAVE SEEN IT 


Not very brilliant, | guess, but acceptable. The “seeds” for this 
poem are: 


1 PRINT ,"POEMS OF 90 PRINT " AT LAST, SUN." 
LONDON TOWN" 100 PRINT " STREETS OF ...”; 

50 PRINT " BOBBIES,"; 110 PRINT " TIMELESS” 

60 PRINT " TOURISTS 120 PRINT " ALL BUT 
CROWD”; FORGOTTEN”; 

70 PRINT " PIGEONS IN 130 PRINT " MEMORIES OF 
TRAFALGAR SQUARE" MAJESTY," 


80 PRINT " CHAOS" 
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140 PRINT " RIVER 180 PRINT " CATHEDRAL 
THAMES”; SPIRES” 

150 PRINT " BIG BEN 190 PRINT " GREY RAIN 
CHIMES, AND”; FALLS ON... 

160 PRINT “ RUSHING, 200 PRINT ” | HAVE SEEN 
PUSHING"; IT^ 

170. PRINT " ALWAYS 210 PRINT " MANY TIMES”; 
MOVING,” 


Notice how, in this program, link words like AND and ON finish 
some lines. 


Here is another peom, from yet another set of words: 
GRAVEYARDS ABOMINATIONS RELIVED 
DARK, DARK SHRINKING WITCHES CACKLE 
ECHOED CHILL OF ODDNESS CHANCES LOST 


SHRINKING CALLING, CALLING, GRAVEYARDS 
ECHOED CALLING, CALLING 

DEATH 15 NEAR, SAY WITCHES CACKLE 

TURN AND REACH FOR 











DARK, DARK WITCHES CACKLE 

SKELETONS RATTLE 

GRAVEYARDS 

The “seeds” are as follows: 

1 PRINT ,"BLACK 130 PRINT " MEMORIES OF 
SABBATH POETRY” PAIN,”; 

50 PRINT “ GRAVEYARDS”; 140 PRINT " SHRINKING”; 

60 PRINT " SKELETONS 150 PRINT " ABOMINATIONS 
RATTLE” RELIVED"; 

70 PRINT " CHILL OF 160 PRINT " ECHOED"; 
ODDNESS”; 170 PRINT “ CALLING, 

80 PRINT " WITCHES CALLING," 
САСКІЕ”; 180 PRINT " DEATH IS NEAR, 

90 PRINT " HOPE NOW SAY”, 
DEAD”; 190 PRINT “ SCREAMS ARE”; 

100 PRINT “ CHANCES 200 PRINT " TURN AND 
LOST”; REACH FOR"; 

110 PRINT " TIMELESS” 210 PRINT "AGAIN, AGAIN” 


120 PRINT " DARK, DARK”; 
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Hunting 
on a Grid 














There are many games, with names like HUNT THE HURKLE or 
BURIED TREASURE or DEPTH-CHARGE, which are based on trying to 
guess the location of one or more points on a grid. Each location is 
specified by quoting the co-ordinates of the point. To start our 
investigation of these games, input the following program, which sets 
up a very simple game of this type (you can leave out lines 10, 60, 70, 
80 and 90 if you want to save time). 











10 PRINT “HUNT GAME" 20 INPUT A 

20 LET X — RND (10) 130 PRINT A; 

30 LET Y = RND (10) 140 PRINT "SECOND 

40 PRINT "A 2Х80 IS NUMBER?" 
HIDDEN ON A 10 x 10 145 INPUT B 
GRID” 50 PRINT B 

50 PRINT " YOU HAVE 10 60 IFA — XANDB — Y 
GUESSES TO FIND IT^ THEN СОТО 240 

60 PRINT “INPUT YOUR 170 IF NOTA = XOR NOT B 
GUESS, PRESSING = Y THEN PRINT “TRY 
NEWLINE” AGAIN” 

70 PRINT “AFTER EACH 80 INPUT B$ 
DIGIT. TWO DIGITS 90 CLS 
ARE” 200 NEXT J 

80 PRINT “NEEDED, THE 210 PRINT “END OF GAME" 
FIRST ONE YOU INPUT” 220 PRINT "ZX80 WAS 

90 PRINT "MUST BE FOR HIDDEN AT “Х,У 
THE HORIZONTAL CO- 230 STOP 
ORDINATE” 240 PRINT “YOU HAVE 

100 FORJ = 1 TO 10 FOUND IT" 

110 PRINT "FIRST NUMBER?" 250 STOP 





Once you've played this a few times, you'll realise that you're really 
"shooting in the dark" when trying to guess the ZX80's location, and 
there is no feedback as to how close you are. 
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You can add the following lines to give you an idea of how you're 
going: 


162 IFA = XAND NOT B = 164 IF NOTA — XAND B — 
Y THEN PRINT, A;" IS Y THEN PRINT ,A;" IS 
RIGHT,^B;" IS МОТ” WRONG, ^B; “IS 

RIGHT” 


Add these lines, and run the program a few times. You can then add 
another line to give the player more information: 
166 IF J = 6 THEN PRINT 
“CLUE: NUMBERS 



































ADDED = ”Х+Ү 
Of course, many other features can be added. Here’s a version of 
the hunt game which allows the player to select the size of the grid, 
and gives clues in terms of direction. 
10 PRINT ,"HUNT THE 152 PRINT C;" AND 
SPIDER” EAST/WEST?” 
20 PRINT "(C) HARTNELL 155 INPUT D 
1980" 156 CLS 
25 PRINT 160 IFC = ААМ р = B 
27 PRINT THEN СОТО 340 
30 PRINT "IN THIS GAME А 165 PRINT "GUESS 
SPIDER WILL WEAVE” NUMBER’); WAS ” 
40 PRINT " A WEB AND QU 5D 
HIDE ON IT" " AND WAS" 
45 PRINT 170 PRINT “WRONG. TRY TO 
47 PRINT HE"; 
50 PRINT "HEIGHT OF 180 IF С <A THEN PRINT 
WEB?" “NORTH ^ 
60  INPUT X 190 IF C >A THEN PRINT 
70 PRINT X;" AND WIDTH?" “SOUTH ^; 
80  INPUT Y 195 IF D <B THEN PRINT 
85 CLS “EAST” 
90 LET A = RNDOO 200 IF D > B THEN PRINT 
100 LET B — RND(Y) “WEST” 
110 FOR) =1TO5 210 PRINT 
120 PRINT " THE SPIDER IS 220 PRINT 
HIDING ON A" 240 NEXT J 
130 PRINT X;" BY 'Y;" WEB. 250 PRINT "GAME OVER. 
WHERE 15 IT?” SPIDER WAS AT '5A;" '5B 
140 PRINT 280 PRINT “ANOTHER 
142 PRINT GAME?" 
145 PRINT 290 INPUT A$ 
"NORTH/SOUTH?"; 300 CLS 
150 INPUT C 310 IF A$ = "YES" THEN 
GOTO 36 
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320 PRINT "THANKS FOR 340 PRINT "YOU FOUND 
PLAYING” THE SPIDER IN “J; 
330 STOP “ TRIES" 
350 GOTO 280 










Slot/Fruit 
Machines 


Once you've paid for your ZX80, bought some software (and this 
book) and possibly invested in some additional memory, your wallet 
may be getting a little light. Неге a program which you can use to get 
a little money out of your richer friends. 

The random number generator (of course) can easily be used to 
simulate a slot machine, or fruit machine, game. A very simple 
program of this type, with two "fruits" could be as follows: 


10 PRINT “SLOT MACHINE” 150 IFA = 1THELET C = 


20 LETC = 5 с—1 
30 LETA=9 160 IF C <1 THEN СОТО 230 
40 LETB = 0 170 IFC 210 THEN GOTO 
50 РОК) =1TO2 250 
60 LET D = RND(2) 189 PRINT "YOU NOW HAVE 
70 IFD = 2 THEN СОТО EGC 

119 190 PRINT “PRESS NEWLINE 
80 ЕТА = А +1 РОК МЕХТ СО” 
90 PRINT ,"ORANGE" 200 INPUT E$ 
100 СОТО 130 210 CLS 
110 LETB=B+1 220 СОТО 30 
120 PRINT “CHERRY” 230 PRINT "YOU HAVE 
130 NEXT] BUSTED” 
140 IFA = 2ORA=@ 240 STOP 


THEN LETC = C + 2 
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250 PRINT “YOU HAVE 
BROKEN THE BANK” 
260 STOP 

input this program and run it a few times. It works as follows: Line 
20 sets the counter for ORANGE (A) ағд, and line 30 sets the CHERRY 
counter (B) at Ø. Your money is C, and line 20 sets it at £5 to begin the 
game. 

Each play of the game requires two random numbers to be 
generated. These are counted by line 50 (and 130) and generated by 
line 60. If the random number is 2, program control moves to line 110 
where B becomes B + 1 and CHERRY is printed. Control then goes 
back to line 50. If the random number is 1, A becomes A + 1, and the 
computer prints ORANGE before going back to line 50 for the next 
number. 

After two numbers have been generated, and the "fruits" printed 
out, the computer checks to see if both are the same (if they are, A will 
equal 2 or @) and if so, adds two to your money (that is, lets C = C + 
2). If the fruits are not the same, the computer takes £1 off you (that is, 
lets C = C — 1). Can you see how the computer knows the two fruits 
were different? 

Next, it prints out your stake (line 160). The computer checks this 
amount. If it is less than £1, control goes to line 230 to print YOU 
HAVE BUSTED. If it is greater than 10 control moves to line 250 where 
the computer prints YOU HAVE BROKEN THE BANK. If neither of 
these conditions-are true, the computer acts on the next line (190) 
which instructs you to press NEWLINE for the next go. 

That may seem a little complicated spelt out in detail, but you 
should be able to follow it through on the program. Once you're sure 
you understand the workings of this program, write your own version 
with three fruits, and thus make it more like a "real" slot machine. 
You'll have to add some lines between others in my program to do this, 
and change a few lines completely. I’m not going to give you a 
program for a "three fruits" machine as you will benefit far more from 
working out your own program to simulate the working of such a 
machine. And it is far more fun playing a game with a program you've 
written yourself, than just feeding in someone else's work. 

Once you've written and played with the three fruits version, read 
on to see one way of writing a four fruits slot machine (but with pretty 
odd fruit). Note that in this program, different winning combinations 
are worth different amounts, and generate comments. 


10 PRINT ,"SLOT MACHINE" 60 PRINT 





20 PRINT ,"(C) HARTNELL 70 PRINT ,"STARTING 
1980” STAKE (Ғ<20)2” 

30 PRINT 80 INPUTM ` 

40 PRINT 9) CLS 

5) PRINT 100 LETC = 0 
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110 LETD = 6 

120 LETE = 0 

130 LETF = 0 

140 FOR] = 1TO4 

150 LET B = RND(4) 

160 IF B = 2 THEN СОТО 
220 

170 IF B = 3 THEN GOTO 
250 

180 IF B = 4 THEN GOTO 
280 


190 LETC =C+1 

200 PRINT “UNCLE” 

210 GOTO 300 

220 LETD = D +1 

230 PRINT ,"CLIVES" 

246 GOTO 300 

250 LETE = E +1 

260 PRINT ,"MAGIC" 

270 GOTO 300 

280 LETF =F +1 

290 PRINT ,"ZX80" 

300 NEXT] 

319 IFC = ТАМО р = 1 

ANDE = 1ANDF = 1 

THEN GOTO 370 

320 IFC = 4ORD = 4OR 

E = 40КЕ = 4 THEN 

GOTO 370 

330 IFC = 30RD = 3OR 

E = 3ORF = 3 THEN 

GOTO 390 

350 LETM = М ~ 2 

369 GOTO 420 

370 LET M = M + 10 

375 PRINT ,, "(shift A, space, 
shift A) JACKPOT (shift A, 
space, shift А)” 
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380 
390 
400 


420 
430 


432 
435 
437 
440 


445 
450 


460 
470 
480 
490 


500 


510 
520 


522 
525 
530 
540 
550 


560 


GOTO 420 
LETM - M2 

PRINT ,, "(shift 5) 3 OF A 
KIND ( shift S)" 

IF M «1 THEN GOTO 
490 

FM > 49 THEN СОТО 
540 
RINT 
PRINT 
PRINT 
PRINT ,"YOU NOW 
HAVE ЕМ 

RINT 
RINT “PRESS NEWLINE 
FOR NEXT SPIN” 

INPUT A$ 

CLS 
GOTO 100 

PRINT “END OF GAME. 
YOU ARE BROKE” 
PRINT ,“ANOTHER 
GAME?" 

NPUT B$ 

F BS = “YES” THEN 
GOTO 69 

CLS 

PRINT ,“OK, BYE BYE” 
STOP 

PRINT “YOU HAVE 
£^M;", AND HAVE” 
PRINT ,"BROKEN THE 
BANK" 

GOTO 500 




















Lost in 
Space 


We'll return now to the HUNTING ON A GRID idea, and work on 
finding objects which are located on more than two axes, that is, are 
hidden in three- (or even four-) dimensional space. Imagine our spider 
is hiding inside a cube, each side of which is X units long. Each point in 
the cube can be specified by giving three co-ordinates: height, width 
and depth. Before reading on to see how l've done it, try to work out a 
program in which a space capsule is lost inside a cube of space, with 
each side of the cube four kilometres long. 


110 
120 
125 
130 
140 





PRINT ,"LOST IN SPACE" 
PRINT 

PRINT "YOU HAVE 15 
HOURS TO FIND" 

PRINT , "A CAPSULE 
LOST IN" 

PRINT ,"A 7KM CUBE OF 
SPACE” 

LET A = RNDO) 

LET B = КМГХ7) 

LET С = RND (7) 

FOR J = 1 TO 15 

PRINT 

PRINT "INPUT 3 SEARCH 





CO-ORDINATES” 

INPUT D 

INPUT E 

INPUT F 

CLS 

PRINT ,D,E,F 

IFA = DANDB=E 
AND C = F THEN СОТО 
320 


145 
150 


155 
160 


170 
180 
190 
200 
210 
220 
230 
240 
250 


260 


PRINT 

PRINT “(shift A) WRONG 
(shift АУ” 

PRINT 

PRINT “HOURS OF AIR 
LEFT — 715 — J 
PRINT 

PRINT "MOVE ^. 

IF A 2 D THEN PRINT 
"UP 5 

IF A < D THEN PRINT 
"DOWN '5 


IF NOT B = E THEN 
PRINT "ACROSS ”; 

IF C >F THEN PRINT 
“FORWARDS” 

IF C <F THEN PRINT 
"BACKWARDS" 
PRINT 

IF J = 14 THEN PRINT 
"DANGER — DEATH 
IMMINENT" 

NEXT J 
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Pise 
270 CLS 340 ,16 — "HOURS OF AIR 
280 PRINT ALEFT” 
290 PRINT "FAILURE — 350 PRINT 

ASTRONAUTS DEAD” 360 PRINT ,"ANOTHER 
295 PRINT MISSION?” 
300 PRINT ,"CAPSULE WAS 370 INPUT H$ 

AT'5A;" "5B; 380 CLS 

"oC 390 IF H$ = "YES" THEN 
310 GOTO 350 СОТО 20 
320 РКІМТ 400 PRINT ,"FAREWELL, 
330 PRINT ,"YOU FOUND BRAVE CAPTAIN" 

THEM WITH" 410 STOP 





Arrays 


Arrays, and the use of the DIM (dimension) statement, puzzle many 
newcomers to BASIC. The DIM statement is used if you want to set up 
a list with a ‘name’ (the name is a letter like A, B or whatever). For 
example, you might want the numbers 1 to 15 in the list named A, in 
the form LET А(@) = 1, LET A (1) = 2 and so on to LET A(14) = 15. To 
tell the ZX80 you need an array to hold these elements (1, 2 and so on 
to 15) input: 

10 DIM A(14) 

The figure in brackets can be one less than the number of items or 
elements you want in the list because, in ZX80 BASIC, an array 
contains one more element than the number you place in the brackets; 
the first element is А(0), not A(1). However, you can һауе a much 
bigger array if you like, provided you don't exceed the memory. In 
practice, it is sufficient to put the number of elements you want in the 
brackets, ‘forgetting’ that you are actually creating an array one 
element bigger than you need. The number inside the brackets is 
known as the subscript, and an element of the form F(2) or K(9) is 
called a subscripted variable. 

Here's a program to show the DIM statement: 

10 DIM A0) 40 PRINT "A(^:];7)— AQ) 

20 FORJ = 9TO 10 50 NEXT J 

30 LET AU) = 2*] 
When you run this, you will get: 





AQ) = 0 
АЙ) = 2...and so on to... 
АПФ = 20 
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Change line 10 to DIM A(5) and run the program again. This time 
you'll get just А) = @..to..A(5) = 10. The program stopped at this 
point (giving the error code 3/30, meaning that the subscripted variable 
required, Le. J = 6 to J = 10 was out of range). Change line 10 now to 
DIM А(20) and run the program. You'll find you get exactly the same 
result as having DIM (A10). As | said before, you change nothing, in 
practice, by having a larger array than you actually want. Now add the 
following lines: 


10 DIM А(10) 80 LET A(Z) = 3*Z 
60 INPUT B$ 90 PRINT "A(5Z;") = '5A(Z) 
70 FORZ = фТО 15 100 NEXT 2 


When you run this, you find the same А(0) = @ through to A(10) = 20 
following by the symbol asking you to input a string (or, as in this case, 
press NEWLINE). The ZX80 will then display: 

А@ = 0 
АЙ) = 3 
..down їо...А(1@) = 30 

The error code 3/80 will be displayed, because the demand made on 
the array by line 80 was greater than the array defined by line 10 (that 
is, line 70 made the next Z equal 11, and line 89 therefore wanted a 
subscripted variable called A(11) which, of course, it could not find 
because the array only had room for 11 elements). 

Here's a program to show the DIM statement in use. 














10 LET R =1 170 LET T(Y) = 1 

20 PRINT ,"LIFE CLASH^ 180 NEXT Y 

30 PRINT ,"(C) HARTNELL" 185 PRINT 

32 PRINT 187 PRINT 

35 PRINT 190 PRINT, 

37 PRINT "GENERATION “Ж 

40 PRINT ,"LIFE FORM 191 LETR = R t 1 
ONE?" 192 PRINT 

50 INPUT O$ 193 PRINT 

60 CLS 194 PRIN 

70 PRINT ,"LIFE FORM 195 FORY = 1ТОА 
TWO?" 200 IF NOT O(Y) = 1 THEN 

80  INPUT T$ СОТО 230 

90 CLS 210 PRINT ,O$ 

100) PRINT "HOW MANY OF 220 GOTO 260 
EACH TO START (<5)?” 230 LET J = RND(Q) 

110 INPUT A 240 IF] = 1 THEN 

120 CLS PRINT," ”; 

130 DIM O(A) 250 IF J = 2 THEN 

140 DIM T(A) PRINT,T$ TS 

150 FORY —1TOA 260 NEXT Y 

160 LET O(Y) = 1 270 PRINT 
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280 PRINT 380 PRINT "INPUT N FOR 
290 FORY=1TOA NEXT GENERATION” 
300 IF NOT T(Y) = 1 THEN 390 NPUT N$ 

GOTO 330 A00 IF NOT NS = “М” THEN 
319 PRINT ,T$; GOTO 1000 
320 СОТО 360 410 CLS 
330 LET] = RND(2 420 LET M = RND(A) 
340 IF] = 1 THEN PRINT, 430 ТЕТЕ = RND() 

m 440 ЕР 1 THEN LET 
350 IF J = 2 THEN O(M) = 9 

PRINT,O$,0$; 450 FF = 2 THEN LET 
360 NEXT Y ТМ) = 0 
365 IFR = 4*A — 1 THEN 460  GOTO 190 

PRINT "(shift AFINAL 1000 PRINT 

NEXT (shift А)” 1010 PRINT 
370 IFR = АҒА THEN 1020 PRINT 

GOTO 1000 1030 PRINT “DOMINANT 
375 PRINT SPECIES?” 
377 PRINT 1049 STOP 

Run this a few times (symbols are more effective than using 

HUMAN and ALIEN, or CAT and MOUSE for the life forms) and then 
read through the listing until you have worked out what each part of 
the program does. Now follows a very simple HUNT THE HURKLE 
program using the DIM statement. Input the program, run it a few 
times, then read through to find out how it works. 
19 PRINT “DIM SPIDER” 150 NPUT T 
20 DIM A(4) 160 NPUT Y 
30 DIM B(4) 170 F A(T) = 1 AND B(Y) = 
50 FOR С = 1TO4 THEN PRINT “YOU 
60 LET A(C) = 2 FOUND IT” 
70 LET B(C) = 2 180 F A(T) = 1 AND B(Y) = 
80 NEXT G 1 THEN STOP 
90 LET К = RND(4) 190 NEXT D 
100 LET L — RND(4) 200 PRINT "SORRY, TIME IS 
110 LET A(K) = 1 UP” 
120 LEF B(L) = 1 210 — PRINT “SPIDER WAS 
130 FORD = 1Т0О 5 AT'^K,L 
140 PRINT "WHERE IS 220 STOP 

SPIDER, TRY 

NUMBER ”;D 


Having run this program a few times, and examined the listing, you 
are probably asking yourself what was achieved by using the DIM 
statements which could not have been achieved without them. The 
answer is: Nothing. However, the DIM comes into its own when you 
want to hide more than one object on a grid, without creating a whole 
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set of co-ordinates of the type LET А = RND(), LET B = КМО), LET 
C = RND(4) and soon, to put the first hidden object at A,B; the second 


at C,D; and so on. | | 
Before we look.at this, here are two more programs which hide a 


single object. 




















5 PRINT ,"DIMMER 150 PRINT " NO^ 
SPIDER” 160 IF J = 5 THEN GOSUB 
10 DIM AQ) 260 
20 DIM BO) 170 NEXT] 
30 FORC = 1ТО 2 180 PRINT "TIME IS UP. 
40 LET A(C) = RND(4) SPIDER WAS АТ”; 
50 NEXT C AQ" AQ) 
60 FOR} =1TO7 199 GOTO 205 
70 PRINT “WHERE IS THE 200 PRINT " YOU HAVE 
SPIDER — ATTEMPT "J FOUND IT” 
80 РОКС = 1ТО 2 205 РОКЕ 16421, 24 
90 INPUT B(C) 210 STOP 
100 NEXT C 220 PRINT ,А(1); " IS RIGHT” 
110 PRINT B(1),” 7;В(2); 230 GOTO 170 
120 IF A(1) — B(1) AND 240 PRINT ,А(2); " IS RIGHT” 
AQ) = В(2) THEN GOTO 250 СОТО 170 
200 260 PRINT "HINT: 
130 IF A(1) = B(1) AND NOT LOCATIONS ADD UP 
AQ) = BQ) THEN СОТО TO '5A(1)-- AQ) 
220 270 RETURN 
140 IF NOT АЙП) = B(1) AND 
AQ) = B) THEN СОТО 





240 
If you like, you can change line 160 to read: 
160 IF] = 3OR J = 7 THEN GOSUB 260 
This just reinforces'the same hint when J = 7 as when J = 3. 
If you want the ‘hint’ to come at random, you could change line 160 
to: 


160 IF] = 2*A(1) THEN GOSUB 260 
or to: 
160 IF J = 2*AQ) THEN GOSUB 260 


Another version of this line, suggested by National ZX80 Users Club 
member lan Rodger$, is: 
160 IF RND(7) < | THEN GOSUB 260 

This final version is probably the best, because it means that the 
closer to J = 7 you get, the more likely you are to be given a hint. 

The only other thing to note is line 205 (POKE 16421, 24), again 
suggested by lan Rodgers. This line removes the code 9/210 at the 
bottom left of the screen which tells you the STOP command has been 
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executed, You can use this line in any program where you feel the 
code number will detract from the final display on the screen. 
The core of the program DIMMER SPIDER can be used to produce a 


far more interesting game, and in this program we will introduce a new 
ZX80 function. 




















5 PRINT ,"PESKY PIKSY" 190 GOTO 305 
10 RANDOMISE 200 CLS 
15 CLEAR 205 FOR Y = 1 TO 10 
20 DIM AQ) 210 PRINT 
25 DIM ВО) 220 NEXT Y 
30 РОКС =1TO2 225 PRINT ,"YAY (shiftA) 
40 LET A(C) = RND(7) CAPTURED" 
50  NEXTC 230 GOTO 305 
60 FORJ =1ТО11 235 PRINT ,А(1) “15 RIGHT” 
70 — PRINT "WHERE IS PIKSY 240 СОТО 176 
— ATTEMPT ^] 250 PRINT ,A(2); “18 RIGHT" 
80 РОКС = 1102 255 СОТО170 
9)  INPUT B(C 260 LET С = RND(5) 
100 NEXT C 270 IF G = 1 THEN PRINT 
119 PRINT BOT)” ”;В(2); “HINT: LOCATIONS ADD 
120 IF A(1) — B(1) AND UP TO ;” A(1) + AQ) 
A(2) — B(2) THEN GOTO 280 IF G = 2 THEN PRINT, 
200 "HINT: DIFERENCE 
130 IF A(1) — B(1) AND NOT BETWEEN LOCATIONS 
AQ) — B(2) THEN GOTO IS ;ABS(A(1) — AQ) 
235 290 IFG >2 THEN GOTO 320 
140 IF NOT АП) = ВИ) AND 300 RETURN 
АО) = BQ) THEN СОТО 305 POKE 16421, 24 
245 310 STOP 
150 PRINT " NO" 320 PRINT “1 WAS AT: 
160 IF RND(10) < J THEN А(1) AQ" NOW" 
GOSUB 260 330 PRINT "I AM MOVING” 
170 IF] = 4ORJ = 7 THEN 340 PRINT ,"PRESS 
CLS NEWLINE” 
175 NEXT J 350 INPUT A$ 
180 PRINT “TIME IS UP, 360 CLS 
PIKSY WAS AT 370 СОТО 10 
“лау” AQ) 


Have a look at line 280. The function ABS stands for "absolute". If a 
number is positive, the absolute value of that number is just the 
number. If a number is negative, the absolute value is the number 
multiplied by —1 (i.e., the number without its negative sign). If you 
leave out ABS in line 280, the clue will be so specific it will almost 
certainly give the location away, so ABS makes for a better game. 
Lines 200 to 220 perform an interesting task. After clearing the screen 
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(line 200) the FOR/NEXT loop moves the letters to be printed (line 225) 
to about the middle of the screen. This makes for a more attractive 
display. 

The next program locates a number of objects (10) on a grid, and 
gives a score based, of course, on how many you hit. However, if more 
than one object is at the same location you get more than one score. 
The program also awards you a "rating" at the end. 


























2 RINT ,"ALIENS + 300 PRINT 
ASTEROIDS” 310 PRINT, 
5 LET K = CHR§(128),CHRS(128); 
20 DIM A(10) “ TIME IS UP" 
30 DIM B(10) 320 PRINT 
40 DIM С(10) 330 PRINT ,"(shift S twice) 
50 DIM D09) YOU HIT Ж)“ ALIENS 
100 FOR} = 1TO 10 shift S twice)" 
110 LET AU) = RND(4) 340 PRIN 
120 LET BU) = RND(4) 350 PRINT “MARKSMAN 
130 NEXT J RATING: “GK *100/ 
160 FORZ = 1TO8 а + RND()) 
170 PRINT СНК9(129 + 360 PRINT 
^ RND(OY" SHOT “2; 370 PRINT "THEY ARE 
"(shift О)”; HIDDEN АТ” 
180 INPUT C(Z) 380 PRINT 
190 INPUT D(Z) 39) FOR] = 1TO 10 
200 PRINT CZ)" "DZY" 9 400 PRINT AQ); “ 5280) 
230 FOR) = 110 8 410 NEXT J 
240 IF AQ) = C2 AND BU) 420 STOP 
= D(Z) THEN LET K = 430 CLS 
K +1 440 FORH = 1 TO 10 
250 IF AQ) = C(Z) AND BG) 450 PRINT 
= D(Z) THEN PRINT 460 NEXT H 
"HIT^;CHR$(128) 470 PRINT ," YOU GOT 
"SCORE: ^K THEM ALL”; 
260 IF K = 10 THEN СОТО 480 FOR U = 1TO 29 
430 490 PRINT CHR$(128); 
270 NEXT J 500 NEXT U 
280 NEXT Z 510 GOTO 470 
290 CLS 


The screen display for this game when run is, unfortunately, a little 
cramped. However, a more elegant display would use up the available 
space very quickly, and generate an error code 4. 

You'll notice a randomly generated. graphical character before the 
word SHOT each time. These graphics are the inverse of the graphics 
available direct from the keyboard. The number of every character is 
given in the manual, and to print the character corresponding to a 
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particular number, you just input PRINT CHR$ (number of character). 
The black blob you get on a hit is the inverse of the space (character 
number 128). The same character is used at the end if you manage to 
destroy all the aliens. The "marksman rating" at the end adds a little 
interest, and is actually related to your skill in destroying the aliens. 
The more you killed (K) the higher your score. It is divided by (1 + 
RND(3)) just to make it a little more interesting. Can you see why the 
line does not read K*1@@/RND(4) or (K/ + RND(3))*100? 





Strings and 
Ladders 





The discipline of programming in just 1K will stand you in good 
stead when later you add extra memory. It is very easy to get into the 
habit of programming sloppily, inefficiently or inelegantly when you 
have memory to spare. One way of making the most of your 1K is to 
use strings, assigned at the start of the program, for phrases which you 
intend to use at various parts of the program. The following game 
SNAKES AND LADDERS shows these techniques in use. 


5 LET G$ = "SCORE IS ” 60 INPUT C$ 
10 LET A$ = "SNAKE" 70 PRINT ,"PLAYER 2?” 
15 LET H$ = '—" 80  INPUT D$ 
20 LET B$ — "LADDER" 90 PRINT "TO START 
25 LET K$ = " WINS” GAME "; 
30 LET L$ = " WORTH" 100 LETA = 0 
40 PRINT ",A$;/"S AND 110 LETB = 9 
“CBS'S” 130 PRINT “PRESS NEWLINE” 
50 PRINT 140 INPUT E$ 
55 “PLAYER 1?" 150 GOSUB 260 
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155 LETK =@ 300 IFC 22 THEN LET T = 1 
160 GOTO 280 310 IF C <3 THEN LET M$ = 
165 LETA=A+E A$ 
170 PRINT CE£HS$MELS;E 320 IFC >2 THEN LET M$ = 
180 PRINT ‚С А B$ 
190 PRINT 330 LET P — RND(6) 
195 IFA >19 THEN GOTO 340 LET E = P*T 
370 350 IFK = 0 THEN GOTO 
200 LETK — 1 65 
219 GOTO 280 360 ТЕК = 1 THEN GOTO 
215 LETB BE 215 
220 PRINT D$SH$,MELS;E 365 CLS 
230 PRINT ,GEB 370 PRINT "(shift A)';CSK$; 
232 PRINT “WITH ”;А—В; 
233 PRINT “ POINTS" 
235 IF B >19 THEN СОТО 385 GOTO 410 
390 390 CLS 
240 PRINT "FOR NEXT 395 PRINT “(shift A)’;D$;K$; 
MOVE”; “ WITH'B— A;" POINTS” 
250 GOTO 130 400 PRINT "ANOTHER 
260 FOR S = 1 TO АМО(300) GAME?" 
265 CLS 410 INPUT N$ 
270 NEXT S 420 CLS 
275 RETURN 430 IF N$ — "YES" THEN 
280 LET C = RND(5) СОТО 90 
290 IFC <3 THEN LET 440 PRINT ,"OK. BYE" 
T--—1 450 STOP 
This program shows quite clearly how strings can be used to save 
memory (in fact, the idea was carried a little too far, just to make the 
technique plain). There are a few other things in the listing from which 
we can learn. Look at lines 290 to 320. These determine if the player 
will get a SNAKE (and a negative score) or a LADDER (and a positive 
score). If line 280 had read LET C = RND(2) there would be a pretty 


good chance that the game would never end, because each players 
gains would approximately equal his losses, and the players would 
lose interest long before somebody happened to chance a win. By 
making the odds in favour of a ladder (a ladder, and positive score are 
generated about 6096 of the time) the program ensures that both 
players’ scores. gradually build up. 

The next program is based on exactly the same idea as SNAKES 
AND LADDERS but takes longer to play, and — because it has more 


variables — is considerably more interesting. 
1 LET D$ — " MILES TO 4 LET G$ = "COPS " 
GO” 5 LET H$ = “PUNCTURE ” 
2 LET E$ = “ALL OK" 6 LET J$ = " POINTS" 
3 LET F$ — "SMASH" 7 LET K$ = “OIL” 
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8 LET L$ = ~ WINS WITH" 180 LET C = RND(11) 

9 LET N$ = "PETROL ” 190 IF C «6 THEN GOSUB 
10 PRINT ,"ROADRACE" 210 

20  RANDOMISE 200 IFC >5 THEN GOSUB 
30 PRINT "DRIVER 1?" C*10 + 150 

40 INPUT B$ 205 IFK = 0 THEN СОТО 
45 LETA = 0 105 

50 PRINT ,"AND 2?" 207 IFK = 1 THEN GOTO 


55 LETB=9 








145 











60 INPUT A$ 210 LET M$ = E$ 
70 PRINT “PRESS 212 LET Z = 27 
NEWLINE” 215 RETURN 
75 INPUT C$ 220 LET M$ = F$ 
80 FOR] = 1 TO 299 222 LETZ = —19 
84 CLS 225 RETURN 
85 NEXT J 230 LET M$ = C$ 
90 PRINT ,A$ 232 LETZ = —7 
95 LETK =@ 235 RETURN 
100 GOTO 180 240 LET M$ — H$ 
195 LETA=A+Z 242 LETZ = —12 
110 IF A > 390 THEN GOTO 245 RETURN 
270 250 LET M$ = N$ 
15 ІРА X9 THEN LETA = Q 252 LETZ = —5 
120 PRINT M$,397 — A;D$ 255 RETURN 
125 PRINT 260 LET M$ — K$ 
30 PRINT ,B$ 262 LETZ = —23 
135 LETK — 1 265 RETURN 
140 GOTO 180 270 PRINT 
45 LETB=B+Z A$;L$/39*(A — В) +А ~ BJS 
150 IF B > 390 THEN СОТО 275 STOP 
280 280 PRINT 
155 IFB X0 THEN LET B = 6 B$L$;39*(B — А) +В —A;J$ 


60 PRINT M$;397 — B;D$ 
70 GOTO 70 


285 





STOP 


arbitrarily at 299). There is no reason why you can't set the delay in 
either program to zero (delete the FOR/NEXT loop, but leave in the 
CLS) or any number you like, or — if you prefer the unexpected — ata 
random number. Do not set the random limit too high (like, say, LET 5 
= 1 TO RND(5000)) because you run the risk of (a) overloading the 
memory, depending on the program; (b) losing interest in the game if 
the delay is close to 5000 time and again; and (c) you may thing you've 
just got a long delay when, in fact, your ZX80 has gone into an infinite 
loop for some reason (this is likely if you've either made a mistake 
when inputting the program, or with some ZX80's, the computer has 
become very hot). 

The next game — 52 BLUFF — uses the string idea again. In this 
game the ZX80 deals two cards. If you think the next card to be dealt 
will lie between the first two, you place a bet of your choice. This 
game is more interesting than some computer betting games like 








There are a few thing to note about this program. It is meant to be a 
race, and although the drivers in this game actually go backwards, 
hey are unlikely to go backwards beyond their starting point. 
Therefore, if at anytime the score becomes less than zero, it is reset to 
zero (lines 115 and 155) Also in this game, as in SNAKES AND 
LADDERS, there is a slightly better than even chance of getting an ALL 
OK (and a positive mileage). See if you can find the line in the listing 
that ensures this. 

Comparing line 260 in SNAKES AND LADDERS with line 86 in 
ROADRACE is instructive. In the first program, the delay is random 
(and varies from a delay of practically zero when S = 1 to a much 
longer period when 5 — 300). In ROADRACE, the delay is set (purely 
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FRUIT MACHINE because you can decide on the likelihood of a win 
and adjust your bet accordingly. You can even decide not to bet at all. 
10 LETS = 30 260 LETZ =D 
20 1ЕТА$ —-" ” 270 GOSUB 480 
30 LET F$ = "CARD t: " 280 IFA<DANDD<B 
40 LET G$ = "CARD 2: " THEN GOSUB 360 
50 LET H$ = "CARD 3: " 290 IFA >DANDD>B 
60 LET A = RND(13) THEN GOSUB 366 
70 ET B = RND(13) 300 IF D>BANDDOA 
80 ЕВ = A THEN СОТО 70 THEN GOSUB 410 
90 PRINT ,,“(shift Q twice) 310 IFD<BANDD<A 
STAKE: £'5S;"(shift Q THEN GOSUB 410 
twice)" 320 IF S « 1 THEN GOTO 440 
100 PRINT F$;A$; 330 INPUT K$ 
110 LETZ = 340 CLS 
120 GOSUB 480 350 GOTO 69 
130 PRINT 360 LETS = 5 + 2*C 
140 PRINT ,G$;A$; 370 IF S > 199 THEN PRINT 
150 LETZ — "YOU HAVE BROKEN 
160 GOSUB 460 THE BANK" 
170 PRINT ,,"WAGER?" 380 IF 5 > 199 THEN STOP 
180 INPUT C 390 IF NOT С = 9$ THEN 
190 CLS PRINT ,"YOU WIN Е”;2*С 
200 IF C = 0 THEN PRINT, 400 RETURN 
“COWARD” 410 LETS S- C 
210 PRINT „A,B 420 IF NOT C — 9 THEN 
220 LET D = RND(13) PRINT ,"YOU LOSE Е”;С 
230 IFD  AORD = B 430 RETURN 
THEN GOTO 220 440 PRINT ,"(shift A) YOU 
240 PRINT ARE BROKE" 
250 PRINT Н$;А$; 450 STOP 
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460 IF NOT 7 = 1 AND NOT 490 IF Z = 12 THEN PRINT 
Z > 10 THEN PRINT Z "ON" 

470 IFZ = 1 THEN PRINT 500 IF Z = 13 THEN PRINT 
“А” “КС” 

480 1Е7 = 11 THEN PRINT 510 RETURN 
“к” 





You will recall that earlier in this book there was program in which 
the ZX80 thought of a number, then gave you hints to help you guess 
it. You probably realised that if you started with 50 as your first guess, 
it was pretty easy to narrow down the number by going to either 25 or 
75 on the second guess. This method allowed you to get the correct 
number fairly easily. Here is another program which appears 
somewhat similar. But it is far harder to work out a system to beat it. 








10  PRINT,"HOT SAUCE" 110 PRINT "A NUMBER 
20 PRINT ,"(C) HARTNELL BETWEEN 1 AND 109" 
1980" 120 PRINT "YOU HAVE 12 
30 PRINT GUESSES" 
40 PRINT "WHATS YOUR 130 LET J = RND(99) 
NAME, PARDNER?" 140 PRINT 
50  INPUT A$ 159 LETS = 5 +1 
69 CLS 160 IFS = 13 THEN СОТО 
70 PRINT 420 
80 PRINT 170 PRINT "WHAT NUMBER 
90 LETS = 0 AM I THINKING OF?” 
100 PRINT “OK, “АБ” ТАМ 180 INPUT A 
THINKING OF” 190 CLS 
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200 IF A = J THEN СОТО 320 IFJ — А < 25 AND 

360 J = A211 THEN PRINT 
210 IF A <] THEN СОТО 300 "JUST 50-50” 
220 IFA — J <5 THEN 339 IF] — A < 45 AND 

PRINT “BOILING, ”;А$ J — A > 24 THEN PRINT 
230 IFA — | <12 AND "PRETTY HOPELESS" 

А —] 24 THEN PRINT 340 IF] — A 2 44 THEN 

"HOT" PRINT “PATHETIC, ”;А$ 
240 IF A — ) < 25 AND 350 GOTO 280 

А —] 211 THEN PRINT 360 PRINT "YOU WERE 

“WARM” RIGHT, “A$ 
250 IFA ~ ] < 45 AND 370 PRINT "I WAS THINKING 

A ~ ] > 24 THEN PRINT OF “J 

“COLD” 380 PRINT "SO YOU GET 
260 IF A — | 2 44 THEN ANOTHER GO" 

PRINT "FREEZING, 390 LETS — 

BABY" 400 СОТО 130 
270 PRINT 410 CLS 
280 PRINT ,,"NEXT GUESS?" 420 PRINT "SORRY, ”;А$; 
290 СОТО 150 ^, YOU DIDNT GUESS 
300 IF] — A <5 THEN ІТ” 

РКІМТ “УЕКҮ, УЕКҮ 430 PRINT 

CLOSE" 440 PRINT "I WAS THINK 
310 ЧЕ} — A <12 AND OF'5 

— A > 4 THEN PRINT 450 STOP 





"PRETTY CLOSE" 


The term "absolute" (ABS on the keyboard) was introduced just 
after the listing for PESKY PIKSY. Refer back to this if you're not sure 
what ABS does. The HOT SAUCE program could be written quite 
differently from the above, by using the ABS. In the listing here, the 
ZX80's response to your guess is determined by whether the number 
you guess is higher or lower than the one it is thinking of, and by the 
difference between the numbers. If you rewrite HOT SAUCE using 
ABS, you'll find that only the difference between the numbers will 
determine the comment ("PATHETIC" or "BOILING" or whatever) the 
ZX80 will make. And just as HOT SAUCE is more difficult to play than 
GUESS MY NUMBER, HOT SAUCE with ABS is harder than without it. 
As an exercise, write a HOT SAUCE program using ABS. You should 
find it uses less memory than the above listing, so you could program 
the ZX80 to make much longer comments on your guesses. 
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Designs on 
your VDU 


We have used the RND function time and time again in programs. It 
is one of the most useful features for games. But, as | pointed out 
earlier, the random number generated is not really a random number 
at ali, but is one of a very, very long list of numbers, so long that the 
number appears to be random. The use of the RANDOMISE function 
(оп the | key) sets the starting point of the long, long list of numbers to 
a number equal to the number of times your TV screen has been 
scanned since the ZX80 was turned on. This next program reads the 
number of frames time and time again, each time a little later than 
before, and uses this number to generate a random number which, in 
turn, is used to instruct the ZX80 to print a specific “character”. 

You'll find in your manual a list of characters and their 
corresponding codes. 

If you told your computer to print CHR$(12) you would find it would 
print the pound sign (Ғ). CHR$ means the character whose code 
follows in brackets. A simple program to fill the screen with randomly 
generated characters, and their corresponding codes, is as follows: 


10 LET K = 1 + RND(62) 30 PRINT "CODE NO. “ж; 
20 IFK >24ANDK «28 “AS "SCHREKE" 75 
THEN GOTO 10 40 СОТО 10 


(The one is added to the randomly generated number to avoid 
printing the character whose code is 1, a blank space, and the 
characters whose codes are 25, 26 and 27 are just punctuation marks.) 
The inverse graphics are printed by referring to their codes (numbers 
130 to 139) and you can fill your screen with these by running the 
following little program: 


10 LET K = КМО (10) 


20 PRINT CHRS(K + 129) 
30 GOTO 10 
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By combining, more or less, the preceding program with the 
RANDOMISE function, we can develop an interesting program. Try 
the following: 

10 РОК} = 1 TO 10 120 LET D = RND(Q2) 
20 RINT 130 PRINT CHR$(D + 165); 
30 RINT “MAGIC CARPET” 140 NEXT Н 
49 EXT J 150 PRINT CHR$(212) 
50 NT "IF YOU PRESS 160 PRINT 
NEWLINE I WILL’ 170 FOR ] = 1 TO 48 
60 PRINT "CREATE A 180 RANDOMISE 
CARPET DESIGN FOR 190 LET Z = RND(11) 
YOU” 200 PRINT CHR$(Z + 128) 
70 NPUT A$ 210 NEXT] 
80 CLS 220 FORJ = 1ТО 45 + С 
90 LET G = RNDG) 230 LET Z = RND(10) 
100 PRINT "CODE NAME 240 PRINT CHR&Z + 1); 
FOR DESIGN: — ^5 250 NEXT J 
CHR$(212); 260 GOTO 180 
110 FORH = 1704 + С 

There are several things we can learn from this program. Lines 10 to 
40 simply print the title ten times, which makes a more interesting start 
than just having the title printed once near the top of the screen. A 


similar idea is to run a number of blank PRINT statements in a 
FOR/NEXT loop to move the display to the centre of the screen. We 
will be using this idea in later programs, such as FRENZY. But for now, 
going back to MAGIC CARPET, line 90 sets С equal to a random 
number in the range 1 to 3. The value of С is used in lines 110 and 220. 
Lines 100 to 150 create a name for the design, by printing the 
characters {all inverse letters) whose codes are generated by line 129. 
CHR$(212) is the inverse quote marks and these are printed at each end 
of the name of the design. The naming part of the program is followed 
by two FOR/NEXT loops, linked by a final GOTO command. The 
RANDOMISE is within the first FOR/NEXT loop. 

Once you've run this program a few times, rewrite it by adding a 
further FOR/NEXT loop (with the FOR in line 165, and the NEXT in 
place of 260) to stop the program before it crashes because the screen 
is full, and to allow you to have another go without having to go back 
into command mode first. Set the limit of this last loop so as to get the 
maximum amount of "carpet" on the screen. Experiment with the size 
of the other two loops, and with the maximum value of G and see what 
this does to the final display. 
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First Steps 
Towards 
the Stars 


Most computer systems in the world, micro to mainframe, have at 
least one STAR TREK-type game in their library. The limited memory 
on the basic ZX80 precludes all but the simplest versions of. this old 



































favourite. However, study of the following program will teach you 
some of the fundamentals of star games, and will give you a core to 
build on when you buy extra K for your machine. : 
1 RANDOMISE 20 IF G<1 THEN GOTO 50 
2 PRINT ,"(shift AJ 21 RINT ,"SHIELD 
MEWARP(shift АУ” THICKNESS: '5G 
3 NT 22 NPUT Q$ 
4 PRINT 23 ETH =H +1 
5 ET G = 10 24 PRINT 
6 LET = 25 PRINT „НМЕ 
7 PRINT ,"NAME?" LEFT: ^17—F 
8 NPUT N$ 26 PRINT “DANGER. “2%; 
9 NT "TREASURE" "AHEAD" 
9 NPUT T$ 27 NPUT B$ 
11 PRINT “ENEMY 1?” 28 GOSUB 55 
2 NPUT E$ 29 FH = 17 THEN GOTO 
13 PRINT,"ENEMY 227 52 
14 INPUT F$ 30 LETK = RNDQ) 
5 NPUT Z$ 31 FK = 2 THEN GOTO 35 
6 CLS 32 LETG —-G—1 
7 ЕТ) = RNDQ) 33 PRINT "THE 718 GOT 
8 IF] = 1 THEN LET L$ = YOU, '^N$ 
ES 34 СОТО 15 
9 FJ = 2 THEN LET L$ = 35 ЕТС=С+1 
F$ 
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36 PRINT "YOU 48 PRINT "WITH 417 — 
DESTROYED THE “1%, N$ H;" TIME UNITS SPARE" 
37 INPUT Z$ 49 STOP 
38 CLS 50 PRINT "GAME OVER. 
39 PRINT "YOU ARE YOU ARE DEAD" 
CLOSER TO THE "T$ 51 STOP 
40 INPUT D$ 52 PRINT "TIMEWARP HAS 
41 CLS IMPLODED" 
42 LET M = RND(5) 53 INT ,"YOU HAVE 
43 FM «5 THEN СОТО 17 FAILED" 
44 GOSUB 55 54 STOP 
45 IF G 2 0 THEN PRINT 55 FOR W = 1 TO RNDGOO) 
“CONGRATU- 56 CLS 
ATIONS, ';N$ 57 NEXT М 
46 PRINT “YOU СОТ 58 ETURN 
THE “T$ 
47 PRINT "OUT OF THE 
TIMEWARP" 


If this program followed a shorter version of the next program we 
will look at, and if the value of H could be used to print the "sector of 
the galaxy" we were in (i.e. IF Н > 3 AND Н <7 THEN PRINT “YOU 
ARE IN SIRIUS SECTOR") we would be well on the way to creating a 
much better "STAR TREK”. If you decide to add extra К, you could 
start by modifying this program. To give you room to move, multiply 
each line number by 19. 

In this program, for the first time, we access the ZX80's frame 
counter. This allows us to add a time dimension to programs. 

Input the following program, and run it, keeping in mind that your 














reactions to commands have a time limit to them. If you exceed the 
time, you'll get an ABORT MISSION display. 
1 PRINT,CHR$(128)/ "BLAST 13 МЕХТ 5 
OFF^;CHR$(128) 14 РОКЕ 16414,0 
2 РКІМТ “ТО 5ТАКТ ТАКЕ- 45 РОКЕ 16415,0 
OFF ROUTINE” 16 GOSUB 10*RND(4) + 120 
3 PRINT, "PRESS 17 LET Q = PEEK (16414) 
NEWLINE” 18 ЕТМ = PEEK (16415) 
4 INPUT K$ 19 IF J = 20 AND 
5 RANDOMISE (N*256 + О)*1@ < 1500 
6 FOR J} = 1 TO 20 THEN GOTO 170 
7 LET Н = RND(1Q) 20 IF (N*256 + Q)*10 < 1500 
8 FOR U = 1TO THEN NEXT J 
5*RND(190) 21 CLS 
9 CLS 22 PRINT CHR$(128Y;" (shift 
10 NEXT U А) ABORT MISSION АТ”; 
11 FORS = 1 TO 2*H (N*256 + О)*1@ 
12 PRINT 23 LETN - N - 1 
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24 GOTO 22 155 INPUT C$ 








130 PRINT ,CHR$(128);“SET 157 IF C$ = CHRS(H + 48) 
FUEL ТО”; THEN RETURN 
(H*20/3)*10*H — H 158 GOTO 21 

135 INPUTK 160 PRINT "(shift S two 

137 IFK = (H*20/3)10*H — times)GIVE IDENTITY 
H THEN RETURN NUMBER '(100*H — 

138 GOTO 21 H/3)+) 

140 LET A$ = CHR$(H + 37) 165 INPUT Z 

142 PRINT "(shift D four 167 IFZ = (100*H —H/3) + J 
times)INPUT AIR THEN RETURN 
PRESSURE VALVE “А% 168 СОТО 21 

145 INPUT B$ 170 CLS 

147 IF B$ — A$ THEN 180 PRINT "(shift W two 
RETURN timesjWE HAVE LIFT 

148 GOTO 21 ОЕР”; 

150 PRINT "SIGNAL TO 190 GOTO 180 
ALIEN ^;CHR$(168 + J); 

CHR$(H*19;CHR$ 
(166 + 2*H" WITH ” 
CHR$O12yCHR$ 


(48 + H;CHR$Q12) 

This program uses a number of ideas we've been introduced to 
recently. Line 1 uses the very useful CHR$(128) which is the inverse 
space, a very solid black square. Lines 7 to 10 introduce a random 
delay while clearing the screen. As you run this program, you'll see 
that the commands appear at different points on the screen. They are 
placed here by the random number of blank print statements above 
them, generated by lines 11 to 13. The timer starts with the POKE 
statements (lines 14 and 15) where the count is set to zero, and the 
ZX80 keeps counting TV frames until you get back to the PEEK 
statements (lines 17 and 18) via the randomly selected (line 16) 
subroutine. The subroutine will only RETURN you to lines 17 and 18 if 
you have done what was required within the subroutine. Once you are 
back at the PEEK statements, the ZX80 checks the value of a 
manipulation of Q (line 17) and N (line 18) against the maximum time 
limit. You may find this game gets a little boring after you've played it 
a number of times. If this happens, reduce the 1500 in lines 19 and 20 
to, say, 1000. Another idea, which is used іп the following program — 
FRENZY — is to reduce the time throughout the game (by subtracting, 
for example, an arithmetic manipulation of the value of the counter of 
the master FOR/NEXT loop). You could do this by changing line 20 to 
read IF (N*256 + Q) < 1500 — 25%) THEN NEXT J, and changing line 
19 to set the same restriction. You could then, perhaps, consider 
adding a print statement to tell you how much time you have to 
complete the instructions in the subroutine, and another print line 
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which tells you how long it took you to actually complete it. The next 
program, which.can be made as heart-stopping as you like, uses these 
features. 





























1 RANDOMISE 27 IFX = 2 THEN PRINT, 

2 PRINT,CHR$(128); 28 IF X = 3 THEN PRINT ,, 
" FRENZY 'CHR$(128) 29 PRINTF 

3 PRINT 30 INPUT K 

4 PRINT “TO RISK SANITY, 31 LET U = PEEK(16414) 
PRESS N/L” 32 LET Z = PEEK (16415) 

5 INPUT A$ 33 LET M = 256*Z + U 

6 CLEAR 34 LET K = F AND 

7 LET С = 5 + RND(15) M < 2*(170 — 7*}) THEN 

8 FOR jJ —1TOC NEXT J 

9 FOR D = 1 TO 56 35 IF NOT K = F THEN 
*(20 + RND(50))] GOTO 49 

10 CLS 36 FM >2*(170 — 7*]) 

11 NEXT D THEN GOTO 45 

12 FJ] >1 THEN PRINT, 37 CLS 
"TIME LAST GO: — "М 38 PRINT “YOUR SANITY 

13 PRINT RATING” 

14 INT “TEST NO. “J; 39 PRINT “IS”, 
“OUT OF ”;G M*j/8 + КМО) 

15 PRINT 40 RINT 

16 PRINT "YOU HAVE"; 41 PRINT “COULD YOU 
СНКЯ(128);2 (70 — 7%); STAND IT AGAIN?" 
CHR$(128;" NUT 42 NPUT H$ 
SECONDS" 43 F NOT H$ = "NO" 

17 FORW = 1 TO RND(11) THEN GOTO 31 

18 РКІМТ 44 STOP 

19 NEXT W 45 CLS 

20 LETF — 46 PRINT ,"YOU ARE FAR 
Q*G + 3*2) ]*] — TOO SLOW" 
RND(9) 47 PRINT 

21 POKE 16414, 0 48 GOTO 38 

22 POKE 16415, 0 49 CLS 

23 PRINT "OK DUM DUM, 50 PRINT "YOU CANNOT 
COPY THIS NUMBER" EVEN COPY NUMBERS" 

24 PRINT 51 PRINT 

25 ET X = RND(4) 52 GOTO 38 

26 1 THEN PRINT 


There are a few extra ideas in this program which are worth pointing 
out. Firstly, look at lines 25 to 28. These decide how far across the line 
the number F will be printed (if X = 4 the number is printed hard 
against the left because there is no instruction for X = 4). The second 
point worth noting is that the manner in which the answer to COULD 
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YOU STAND IT AGAIN! is treated. Any answer at all, except NO, will 
be interpreted as an instruction to go back for a second game. So if 
your smart friends input YAY, YEAH, Y, YESSIR, OK or whatever, the 
ZX80 will "understand" that YES (actually, NOT NO) is meant. 








Doing it in 
Your Head 


The next two programs do not have timers, but could well be 
adapted to have a real time limitation if you like. 


16 PRINT ,"UNICORNS AND 180 PRINT 





GRIFFINS” “UNICORN” CHRS(212); 
20 LET G = 5 + RND(5) "S NUMBER IS ^F 
30 PRINT 190 PRINT "WHAT DOES 
40 PRINT "DEGREE OF GRIFFIN ADD ТО” 
DIFFICULTY (1 TO 5)?” 200 PRINT "MAKE 
50 INPUT О UNICORN';CHR$(212J; 
60 IF Q<1OR Q>5 THEN 45 NUMBER = 7277 
GOTO 40 210 INPUT K 
70 PRINT “PRESS NEWLINE 220 IFK + F = 2 THEN 
TO START” NEXT J 
80 INPUT A$ 230 PRINT 
90 FOR} =1TOG 240 LET T = (F*RND(1Q0)+F 
100 FOR D = 1 TO RND(309) 250 IF] = 1 THEN LET 
110 CLS Т=@ 
120 NEXT D 260 PRINT "SCORE FOR 
130 FOR W = 1 TO RND(6) THAT ROUND WAS “;T 
140 PRINT 270 IF NOT J = G AND NOT 
150 NEXT W K + F = Z THEN 
160 LET F = 2*G + 3*}/2 GOSUB 330 
170 LET Z = Q*(RND(15) + 280 IF] — G THEN GOSUB 
J*19) 360 
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290 PRINT "DO YOU WANT 340 RETURN 
TO TACKLE THE" 350 PRINT 
300 PRINT ,"UNICORN 360 PRINT "YOU HAVE 
AGAIN?” BEATEN THE UNICORN” 
310 INPUT H$ 370 PRINT “YOUR IQ IS "^ 
320 IF NOT H$ = “NO” Т* +] 
ТНЕМ СОТО 20 380 RETURN 


330 IF NOTK -F—Z 
PRINT "THE UNICORN 
BEAT YOU” 


This program introduces an idea which you can use in many games 
~ the "degree of difficulty". Generally, the "degree" can be used 
directly, to multiply or divide something, or to be added to or taken 
away from the limits on a FOR/NEXT loop. In other games, you might 
have to add lines like (if, say A was the degree: IF A = 1 THEN LET C 
= 200; or IF A >7 THEN GOSUB 90. Look back at some of the earlier 
programs in this book, and work out ways of modifying them in the 
light of later things you have learned. 

The "degree of difficulty" can easily be worked into the following 
program. However, as it becomes more and more difficult already as it 
proceeds, it might be better to make it a little easier before adding the 
option of increasing the difficulty. Line 280 is the one to modify to 
make the game simpler, and it is here that the "degree' factor can be 
added. 




















10 PRINT ,"ECHO 150 PRINT ,"REMEMBER, ^; 
CHAMBER" АЗ 
20 LETZ = RND(8) 160 PRINT ,,"IS ^K 
30 РОКС =1TO0Z+5 170 PRINT 
49 LET D = RND(4) 180 PRINT “WHEN YOU ARE 
50 IF D = 1 THEN LET SURE YOU” 
A$ = “KIDDO” 199 PRINT “CAN DO THIS, 
60 IFD = 2 THEN LET PRESS N/L" 
A$ — "SMART ONE" 200 INPUT B$ 
70 IF D = 3 THEN LET 210 IF NOT BS = ""THEN 
A$ = “GENIUS” STOP 
80 IF D = 4 THEN LET 220 GOSUB 280 
A$ — "COMPUTER 230 PRINT “OK, “А6; 
FREAK” ”, WHAT WAS" 
90 LET K = RND(32767) 240 PRINT ,"THE NUMBER?" 
100 PRINT 250 INPUT H 
110 PRINT 260 IFH = KTHEN GOTO 
120 PRINT "TRY NO. “С; 320 
“OUT OF ^Z 4 5 270 iF NOT H = K THEN 
130 PRINT GOTO 410 
140 PRINT ,"THE NUMBER 280 FOR] = 1TO 300*G 
YOU HAVE TO" 290 CLS 
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300 NEXT] 380 CLS 


310 RETURN 390 IEG = Z + 5 THEN 
320 CLS GOTO 440 
330 PRINT “YAY, 'A$;", YOU 400 NEXT С 
GOT IT” RIGHT” 410 CLS 
340 PRINT ,"WHEN READY 420 PRINT "YOU BLEW 
FOR" IT, “A$ 
350 PRINT ,"NEXT ONE, 430 STOP 
PRESS МЛ.” 440 PRINT "YOU SURE HAVE 
360 INPUT C$ ^ PRODIGIOUS” 
370 IF NOT C$ = "" THEN 450 PRINT ,"MEMORY,'A$ 
STOP 460 STOP 


In this program, which puts a number in the range from one to 32767 
(the ZX80's upper limit) on the screen, and then asks you to remember 
it for a time period which gets longer with each new number, note that 
lines 40 to 80 control what A$ will be in each run through the master 
FOR/NEXT loop. A similar approach was used in SNAKES AND 
LADDERS and ROADRACE. Line 280, as you can easily see, determines 
how long the delay loop will be. By the last few shots in a round, the 
delay seems interminable. Have a look at the listing for line 339, 
noting the comma between the words IT and RIGHT. If the comma 
was not here, the word RIGHT would scroll around, half on one line 
and half on the other, when D equals 4. Can you see why? 





Moving 
Graphics 





Because the TV screen is not memory mapped, genuine moving 
graphics are unfortunately out of the question for the ZX80. But you 
can produce a sort of animated picture as this next program shows. 
Input it as listed, then try and work out a version that has two people 
running in a race, with "moving legs". 


1 LET A$ = "(shift AVI (shift 2 LET B$ = “(shift A)2(shift 


d 


AY Aye 
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3 ET C$ = “O(shift GJO” 30 GOSUB 39 
4 ETC-9 31 PRINT B$ 
5 LETD = 0 32 GOSUB 39 
6 RANDOMISE 33 PRINT C$ 
7 LET W = RND(4) 34 NEXT] 
8 PRINT ,"GRAND PRIX" 35 FORT = 1ТОС 
9 FOR} = 1 TO 70 36 PRINT "(singlespace)"; 
10 IF] >1 THEN PRINT 37 NEXT T 
"AFTER LAP “J. — 1 38 RETURN 
11 RINT 39 FORZ=1TOD 
12 PRINT "POINTS: ^; 40 PRINT "(singlespaceY" 
ASS С ^B$5"—';D 41 NEXT Z 
13 F C >28 AND D > 28 42 RETURN 
THEN GOTO 54 43 STOP 
14 FC > 28 OR D > 28 44 CLS 
THEN GOTO 44 45 PRIN] 
15 PRINT ` 46 PRINT 
16 IFJ = 1 THEN PRINT 47 PRINT 
"TO START RACE ^ 48 PRINT “DRIVER OF ^; 
17 PRINT "PRESS NEWLINE” 49 F C >D THEN PRINT A$ 
18 NPUT U$ 50 F D > С THEN PRINT B$ 
19 CLS 51 PRINT ,"WINS THE 
20 PRINT ,,"FINISH(space GRAND. PRIX" 
shift QY' 52 PRINT "WITH “<АВ5 
21 ЕТС = С — D)'1009/]; 
C — 1+ RNDG) "(singlespace) POINTS” 
22 GOSUB 35 53 STOP 
23 PRINT A$ 54 CLS 
24  |F2*(J/2) = | AND NOT 55 ЕС = D THEN PRINT 
= RND(25) THEN LET Аб” DEAD 
N = RND(W) HEAT ^;BS;"(singlespace)"; 
25 GOSUB 35 56 IF NOT C = D THEN 
26 PRINT C$ GOTO 44 
27 PRINT 57 СОТО 55 
28 PRIN 
29 LETD — 
D — 1 + RND() 





In this program the "movement" comes from the two subroutines 
(starting at lines 35 and 39) which print a number of blank spaces 
before the "car" is printed. If you wanted a person with waving arms, a 
random number could determine which "arm subroutine" was printed. 
The two people running a race program could be written by combining 
the idea used in GRAND PRIX for moving the cars across, with a sub- 
subroutine to determine the position of the figures' legs. 

Н you have more than 1K memory, you could write a GRAND PRIX 
with four cars, and include a number of hazards (such as SMASH INTO 
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SIDE WALL, OUT OF PETROL, or GEAR BOX BLOWS UP) which could 
either remove a car completely from the race, or simply take it out for 
a while, and then making sure it had to start again. Another variation 
on the above ideas is to let the cars, people or whatever move from 
left to right on the screen, and then move back. It should not be too 
hard for you to work out how this can be done. 

In this next game, a fly (heavily disguised as an ‘X’) has to land on a 
sugar cube (shift A). You input the co-ordinates you want the fly to 
follow — positive is down, followed by NEWLINE, left is negative. You 
have to estimate the co-ordinates you input, This program gives a 
pretty good imitation of moving graphics. 























12 PRINT “MAGIC FLY” 31 IFD = 1 THENLET Q = 
2 RANDOMISE Р +1 
3 LETV=1 32 IFD = 2 THEN LET Q = 
4 LETT=90 Р-1 
5 LET F = RND(29) 33 IFD = 3 THEN LET Q = 
6. LET Y = RND(1) Р 
7 LETX = 16 34 LETY=Y+Q 
8 | GOSUB 37 35 IFY  FANDX «2 
9 IETT— T 1 THEN GOTO 50 
9 GOSUB 41 36 СОТО 8 
1. ТЕХ <2 THEN СОТО 13 37 РЕН =1TOV 
12 GOTO 46 38 PRINT 
13 FORK = ТТОЕ 39 NEXTH 
4 PRINT "(onespace)"; 40 RETURN 
5 NEXTK 41 РОКІ =1TOY 
6 PRINT "(shift A)" 42 PRINT "(onespace)"; 
7 IFX«2ANDY =F 43  NEXTL 
THEN STOP 44 PRINT "X" 
8 INPUT A 45 RETURN 
9 IFA>5THENLETA = 46 FORJ = 0TOX 
5 47 PRINT 
20 INPUT P 48 NEXT J 
21 IFP»5THENLETP = 5 49 СОТО 13 
22 LET B — RND(3) 50 PRINT ,"WELL DONE, 
23 CLS SUGAR" 
24 IF B= 1 THEN LET M = 51 PRINT 
Х-А+1 “YOU CHR §(212);"VE 
25 IF B = 2THENLETM = LANDED ON THE CUBE” 
Х-А-1 52 PRINT "AND IT TOOK 
26 IFB = 3 THEN LET M = YOU “1; SECONDS" 
Х-А 53 СОТО 8 ` 
27 LtETV —- V -X—- M 54 PRINT "YOU MISSED 
28 LETX = M THE SUGAR” 
29 IFX«1 THEN GOTO 60 55 PRINT "TO FLY AGAIN 
30 LET D = RND(3) ТҮРЕ (Y" 
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56 INPUT F$ 63 NEXTK 
57 CLS 64 IFY <F THEN PRINT 
58  IFF$ = "Y" THEN СОТО "X(onespace shift A)" 
2 65 IFF«Y OR F = Y THEN 
59 STOP PRINT "(shift A 
60 GOSUB 37 onespace)X" 
61 FORK =1TOF 66 PRINT "^ 
62 PRINT "(onespace)"; 67 GOTO 54 


The last game in this section is included because it makes a very 
effective use of the "moving graphics" idea, and also because it seems 
that just as every computer in the world hankers to be Captain Kirk, so 
every computer operator wants to land capsules, modules, LEMs or 
whatever on the moon. So here's a program to do it via the ZX80. But 
be warned, it is fairly difficult to land safely and demands a lot of 
patience. Once you've mastered the art of landing, change line 2 as 
follows, just to make it even harder to land successfully: 2 ТЕН « 30 
AND V « 10 AND V » —7 THEN IF ABS(Z — M) « 4 THEN GOTO 37. 








1 GOTO 42 19 NEXT J 
2 IF H « 50 AND V < 20 20 PRINT "(shift F shift G 
AND V > —15 THEN IF shift D)" 
ABS(Z — М) <5 THEN 21 FORJ =1TOU 
GOTO 37 22 PRINT 
3 IF Н > 1750 THEN GOTO 23 NEXT J 
40 24 FORJ ч1ТОМ-1 
4 RETURN 25 PRINT "(shift WY 
5 CLS 26 NEXT J 
6 LETT =T +44 27 PRINT “(shift S shift W 
RND(Q) shift T shift W shift S)" 
7 LET V = V + ААА — 28 PRINT "VEL: "М; XE23 
12 — RND(3) HEIGHT: 'H,, "FUEL: "Р; 
8 LETH H-V-—20 + " TIME: ^T 
RND(19) 29 PRINT 13*A;" THRUST? "; 
9 LET F = F — (ABS(A) + 30  INPUTA 
ABS(B/5) * RND(6) 31 PRINT A;" DRIFT?" 
1)  GOSUB2 32 INPUT B 
11 | IF H <20 OR F <5 THEN 33 LET A = AA3 
GOTO 35 34 СОТО5 
12 LETU = Н/100 35 PRINT “CRASH (shift К 
13 FORJ =17TO17-U twice space) SPEED "; 
14 PRINT АВ5()/ "(space)"; 
15 NEXT J 36 GOTO 35 
16 LETZ =Z + В/2 +2 ~ 37 CLS 
RND(3) 


17 FORJ «11027 
18 PRINT "(1 spacey’; 
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38 PRINT "SUCCESSFUL 42 LETH = 1750 
LANDING (shift E) 43 LET F = 827 + RND(50) 
RATING "430 — ABS(V)) 44 LETT —-6 
51090 + V 45 LET Z = RND(15) 

39 GOTO 38 46 LET A - 1 

40 PRINT "YOU HAVE 47 LETB = 0 
REACHED ESCAPE 48 LET M = RND(19) 
VELOCITY” 49 LETV = 6 

41 СОТО 40 50 СОТО 6 





ZX80 Active Display 


Ron Bissell and Ken Macdonald, of Solihull, have found a way of 
getting moving graphics on the ZX80. They call their routine "the 
amazing active display", and amazing it is. Input the following 
program, and RUN it a few times so you can see how it works. 

After you've RUN it as listed, delete lines 219 to 820 and insert your 
own program, with a GOSUB 900 whenever you want the ZX80 to 
display something and hold this display. Note that one of your lines 
must specify time (T). Start off with LET T = 150 and then experiment 
with other values. With LET T = 255 you see nothing atall, while LET 
T = 0 (as in line 350 of the original program) holds the display for a 
very long time. LET T = 250 is a very, very rapid change; so fast that 
your TV screen may not stabilise between changes. 

There is no reason why you cannot let T change during a game. Try 
and write a program which prints out a line of, say, shift A, then adds 
19 to the value of T, then prints out another line. You'll need to limit 
the number of lines of shift A's you want to print, as well as put an 
upper limit on the value of T. (Hint: Put LET T = T + 10 and IF T = 
300 THEN LET T = 0 somewhere in the 900 subroutine), Once you've 
experimented with the active display, you might like to read the 
explanation on it given by the program authors. Note that the 
copyright of the active display belongs to R Bissell and K Macdonald, 
and like all the programs in this book, cannot be offered for sale, or 
used as part of a product offered for sale. 


10 LETA = 17270 221E407CDE 09 

20 LETS —A C823DBFE3E 3832234006 

30 LET M$ — 5ETOFED3FE3EECO 
"CDE006CDC205012001D9 6192A0C40C BECCDAD 
CDC2051803CDAD010 013EF5042BFD352318CA" 
60810FE2A1E4023 
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40 ET H — CODE (M$) 340 PRINT X$ 

50 FH = 1 THEN СОТО 350 LETT =@ 
200 360 GOSUBR 

60 LET M$ = TLS(MS) 37@ CLS 

70 LET L= CODE (M$) 380 LET T = 150 

80 OKE A, 16* 390 GOSUB Q 
(H — 28)-1-28 400 PRINT T$ 

90 LET M$ = TLS(MS) 419 GOSUB Q 

100 LET A = A1 420 PRINT U$ 

110 GOTO 40 430 COSUB Q 

200 LT C = 16414 440 PRINT W$ 

210 LET R = 900 450 GOSUB Q 

220 LET Q = 800 460 PRINT X$ 

230 LET T$ = "THE" 470 LETT = 0 

240 LET U$ = "AMAZING" 480 GOSUB Q 

250 LET W$ = "ACTIVE" 490 CLS 

260 LET X$ — "DISPLAY" 500 GOTO 270 

270 LET T = 150 800 PRINT 

280 PRINT T$ 810 PRINT 

290 GOSUBR 820 PRINT 

300 PRINT U$ 900 POKE C,T 

310 GOSUB К 910 POKE C + 1,255 

320 PRINT W$ 920 LET X = USR (S) 

330 GOSUBR 930 RETURN 





In the program listing lines 10-110 and 920 are the HEX LOADER i.e. 
a BASIC routine which can be loaded from cassette tape which will 
POKE a machine code routine into memory and pass execution to it. 
The machine code is held as a string of successive pairs of 
hexadecimal digits, M$ in line 30. The usual method of entering 
machine code by POKING individual decimal values would, in this 
case, waste about 300 bytes of memory. 

In line 10 variable A is the address to start loading and S in line 20 is 
the address at which execution starts in statement 920. The value of A 
must be somewhere between the top of the Display File and the likely 
range of the Stack Pointer, 17270 in this case was found to be an 
optimum value but the Active Display machine code routine is 
RELOCATABLE and may be positioned at higher addresses if more 
memory than the minimum 1K is available. 

if this method of entering machine code is to be used for other 
programs which require non-contiguous areas to be loaded, then make 
lines 49-119 a sub-routine and use a different value of A and MA for 
each separate area of contiguous code. Note that machine code 
programs can readily be edited using the BASIC line editor. 

Line 200 is the address of the System Variable used as the Frame 
Counter. In normal ZX80 operation this increments by 1 every time a 
complete TV frame is displayed, then re-cycles, but in the case of the 
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Active Display, the display routine is terminated when the count 
overflows back to zero and control passes back to BASIC for further 
processing. Lines 900 and 910 pre-set this Frame Counter for a 
particular display time. If the 2 byte unsigned binary number held here 
at locations 16414/5 is 65536 Le. 255,255 then a return to BASIC will be 
made without displaying. Each unit subtracted from 65536 will cause a 
display persist for another 1/50th of a second so periods up to 
approximately 10 minutes are possible. Note that very short periods 
may not give the TV set time to regain synchronisation lock and result 
in a messy picture. 

After the Frame Counter is pre-set, line 920 causes a jump to the 
machine code sub-routine which duplicates selected regions of the 
Sinclair ROM but with the added return on Frame Counter overflow. 
The keyboard is totally inoperative during Active Display, so to stop 
the program hold BREAK until control returns to BASIC. Remember to 
SAVE your program on tape before RUNning, since an error in 
machine code will undoubtedly cause a system crash. 





Let the Games Begin 


Now follows a series of games, all of which will fit within the 1K 
supplied with your machine. The games use ideas introduced in earlier 
sections of the book, and are here mainly for playing. You will 
probably learn something by studying the listings, but the main 
"teaching" is now behind you. 
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Did He Who 
Made the Lamb 
Make the UFO 


This game, which produces a remarkably attractive display, uses a 











subroutine to "draw" a flying saucer before each shot. Fach saucer isa 
little different from the one that precedes it. The subroutine to 
nerate the saucer is also used in the program LASER ROULETTE. 
PRINT “SLAUGHTER” 22 PRINT "TO VECTOR “J; 
LET W = 5 + RND(5) “ІМ”; 500 — 10* 
FORK = 1TOW (K-- 1)" STARSECS” 
PRINT 23 NPUT M 
PRINT ,,"(shift W shift A 24 LET A = PEEK (16414) 
shift W) 25 LET B = PEEK (16415) 
GOSUB 40 26 LET Q = В*256 + А 
PRINT " ^" 22 IF Q > 500 ~ 10*K OR 
РОК 5 = 1ТО 2 МОТ М = Ј ТНЕМ СОТО 
PRINT, 50 
FOR Z = 1 TO 18 28 GOSUB 46 
PRINT "(shift S)"; 29 PRINT "TIME FOR LAST 
NEXT Z KILL: Q 
PRINT" " 30 NEXT K 
NEXT S 31 PRINT 
GOSUB 40 32 PRINT “YOU 
PRINT “TALLY: ^K — 2; SLAUGHTERED" 
^ QUT OF 'w 33 PRINT W;" SIRIUS 
LET | = RND(32000) SHIPS” 
POKE 16414,0 34 PRINT 
POKE 16415,0 35 PRINT ANOTHER 
PRINT MISSION?” 
PRINT "FOR SHIP “Қ; 36 МРОТ B$ 
"FIRE" 37 CLS 
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38 IF NOT B$ = "NO" 45 RETURN 
THEN СОТО 2 49 PRINT 
39 STOP 50 CLS 
40 PRINT ,"(2 spaces)"; 51 PRINT 
41 LET G = RND(11) 52 PRINT "SHIP “Ж; GOT 
42 FORZ = 1ТО 14 YOU" 
43 PRINT CHR$(127 + С) 53 GOTO 51 
44 NEXT Z 

















wy 
Iu 
Laser 
Roulette 
1 PRINT ,"LASER 21 PRINT “FOR LASER” 
ROULETTE” 22 PRINT “SHOT ' ^K 
2 RANDOMISE 23  INPUT A$ 
3 FORK —1 TO 10 24 GOSUB 53 
4 PRINT 25 LET J = RND(7) 
5 PRINT 26 IF J = 4 THEN СОТО 41 
6 PRINT 27 PRINT 
7 PRINT ,,"(shift W shift A 28 PRINT ,"SAFE...THIS 
shift WY” TIME^ 
8 GOSUB 47 29 PRINT 
9 PRINT" " 30 IF NOT K = 1 THEN 
10 FORS = 1ТО 2 GOSUB 57 
11 PRINT, 31 NEXT K 
12 FORZ = 1 TO 18 32 PRINT 
13 PRINT "(shift SY 33 PRINT ,"YOU ESCAPED 
14 NEXTZ FROM THE ” 
1415 PRINT" ” 34 PRINT ,"REACTION 
16 NEXT S CHAMBER" 
17 GOSUB 47 35 PRINT 
18 PRINT 36 PRINT "ANOTHER 
19 PRINT ESCAPE?” 
20 PRINT „“PRESS N/L” 37 INPUT B$ 
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38 CLS 50 PRINT CHR$(G + 127) 
39 IF NOT B$ = "NO" 51 МЕХТ7 
THEN GOTO 3 52 RETURN 

40 STOP 53 FOR Y = 1 TO K*K*10 
41 FOR D = 1 TO 32 54 CLS 
42 PRINT CHR$(128); 55 NEXT Y 
43 PRINT "DEAD... 56 RETURN 
44 NEXT D 57 PRINT "YOU HAVE 
45 OKE 16421, 24 BLASTED '5K;" TENTHS” 
46 STOP 58 PRINT "OF THE 
47 PRINT ,"(2 spaces)"; SAUCERS REACTOR 
48 LET G = RND(11) WALL" 
49 "OR Z = 1 TO 14 59 RETURN 

in this game, the player is supposed to be trapped inside a flying 
saucer's reactor (!) with a laser pistol. If he can fire 10 shots he can get 
out, but every time he fires he runs the risk of blowing the saucer — 
and himself — up. This is an example of how a simple program 
(RUSSIAN ROULETTE) can be dressed up and made much more 


interesting. 





High Noon 
at the Old 
Intergalactic 





In this game, you have to outdraw a nimble-fingered alien. The 
screen goes blank for a random length of time, then comes back, 
showing the alien (he moves across during the game). You must hit 
NEWLINE as fast as you can. If you do so quickly enough the alien 
dies, falling apart as splendidly as did the CHOPPER in an earlier 
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game. Once you've mastered this game, change line 38 to "IF D « 200 
+ RND(300) THEN СОТО 49", and you'll find you have to learn to 


beat the alien all over again. 





1 GOTO 7 

2 PRINT А5 77” 

3 PRINT АБ 4%” 

4 PRINT A$;"(shift А)” 

5 PRINT A$;“(SHIFT S, shift 
TY 

6 RETURN 

7 LETT = @ 

8 PRINT "YOU HAVE 6 
SHOTS" 

9 PRINT "TO OUTDRAW 
THE ALIEN" 

10 PRINT "BEFORE IT 
DESTROYS YOUR BASE" 

11 LET A$ = "(6 spaces)" 


12 FOR} = 1TO 14 
13 PRINT 

14 NEXT J 

15 GOSUB 2 


16 PRINT “SHOT ^T + 1 
17 INPUT H$ 


18 CLS 

19 РОКС «171014 

20 PRINT 

21 NEXT C 

22 IFT = 1 THEN LET A$ = 


"(9 spaces)" 
23 JF T = 2 THEN LET A$ = 
"(12 spaces)" 
24 IFT = 3 THEN LET A$ = 
"(15 spaces)" 
25 IFT = 4 THEN LET A$ = 
"(18 spaces)" 


26 IFT = 5 THEN LET A$ = 
"(Q1 spaces)" 

27 GOSUB 2 

28. FORA =1TO 
10*RND(200) 





29 
30 
31 
32 
33 
34 
35 
36 
37 


38 


39 
40 
41 
42 
43 
4A 
45 
46 
47 


48 
49 


50 


51 
52 
53 
54 
55 
56 


57 


58 


NEXT А 

ОКЕ 16414,0 
РОКЕ 16415, 0 
NPUT X$ 
LETT =] +1 


= PEEK (16414) 
= PEEK (16415) 
= (C*200) + 

*20 

500 THEN GOTO 


FT = 6 THEN SAVE 
PRINT, “MISSED” 

ORF = 17012 
RINT 





NPUT C$ 

CLS 

F NOT G$ = “NO” 
THEN GOTO 12 
STOP 

PRINT “YOU HIT THE 
ALIEN” 

PRINT ,"AND SAVED 
YOUR BASE” 

FOR D = 1 TO 15 
PRINT 
NEXT D 

PRINT А% 2 spaces)*" 
PRINT А5 АЗ spaces}*”” 
PRINT A$;"(shift G shift 
Т)” 
PRINT А6 {2 spaces shift 
D shift R 2 spaces shift 
cy’ 

STOP 














A novel feature of this game is line 39, which puts the computer into 
the SAVE mode if you lose. A far more frustrating punishment for a 
loss is to have to computer erase the program. Can you work out what. 
line 39 would have to be to make the program disappear completely? 
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LETG = 9 
PRINT ,"CAVE MASTER" 
GOSUB 57 


LETH = ф 
LET E$ = “CRAZED 
WIZARD” 


LET F$ = “WICKED 
WITCH” 

NPUT K$ 

GOSUB 53 

ПЕТ) = RND(2) 

FJ = 1 THEN LET L$ = 
E$ 

FJ = 2 THEN LET L$ = 
F$ 

FG«1 THEN GOTO 47 
GOSUB 57 

PRINT ,CHR$(128 + С); 


' " AURA TONE С 


IETH — Hc 1 

FH = 17 THEN СОТО 
50 

GOSUB 57 





18 


19 
20 


21 
22 
23 


24 
25 
26 
27 
28 


‚29 


30 
3 
32 


33 
34 
35 





You will recall that, earlier in this book, a program under the 
imaginative name of TIME WARP was listed. The next program uses 
the same basic program to produce something a little more down to 
earth. All of the programs in this book can (and should) be developed 
by you in whatever direction you prefer. Only by doing this will you 
develop your own programming skills. Anyway, here is one wày TIME 
WARP can be warped. 


RINT ,"LEVEL OF 
MAGIC: ‘717 — H 
GOSUB 57 

PRINT “HORRORS, “1%; 
“ AHEAD” 

МРОТ B$ 

GOSUB 53 

FH = 17 THEN GOTO 
50 








LET K = RNDQ) 

FK = 2 THEN СОТО 31 
LETG=G-~2 
СО5ОВ 57 

PRINT “THE 741% 

" ZONKED YOU" 
NPUT A$ 

GOTO 9 

LETG — G1 
PRINT "YOU ZAPPED 
THE “L$ 

NPUT D$ 

COSUB 53 

GOSUB 57 
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36 PRINT "THE FOOLS 49 STOP 
GOLD IS WITHIN” 50 GOSUB 57 
37  PRINT,"YOUR GRASP” 51 PRINT ,"YOU TOOK ТОО 
39  INPUT G$ LONG" 
40 LET M = RND(6) 52 GOTO 48 
41 ІЕМ X6 THEN СОТО 9 53 FORW = 1ТО КМО 
42 GOSUB 53 (400) 
43 GOSUB 57 54 CLS 
44 IF G >@ THEN PRINT, 55 NEXT М 
"YOU DID IT" 56 RETURN 
45 PRINT "WITH "717 — H; 57 PRINT 
“ MAGIC SPELLS LEFT” 58 PRINT 
46 STOP 59 PRINT 
47 GOSUB 57 60 PRINT 
48 PRINT “DEATH COMES 61 RETURN 
TO US ALL" 
a? \ 74 о 
. 
Turning 






the Tables 


There are many, many programs in which the computer thinks of a 


number, and the human player has to guess it. There are two of them 
in this book. This next program, written by Trevor Sharples, turns the 


tables. 

2 PRINT ,"MYSTIC" 

4 PRINT 

6 PRINT "THINK OF A 
NUMBER BETWEEN" 

8 PRINT "ONE AND 100 


AND I WILL GUESS IT” 
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9 
10 


12 
14 
16 


PRINT 

PRINT "PRESS NEWLINE 
TO PLAY" 

INPUT A$ 

GOSUB 86 

LETT = 0 





18 
20 
22 
24 
26 
28 


30 


32 
34 
36 


38 
40 


42 
44 


46 
48 
50 


52 
54 
56 
58 


60 
62 
64 
66 
68 


70 


72 


LET Z 
ET Y 
LET X RND(100) 
PRINT ,"I GUESS '";X 
PRINT 
PRIN] 
PRINT,"RIGHT (R) OR 
WRONG (Wy 

LETT =T+1 

NPUT B$ 

F B$ = UR" THEN 
GOTO 66 

GOSUB 86 

RINT "MY GUESS 
WAS '^X 

RINT 
PRINT ,"HICHER (H) OR 
-OWER (0027 

NPUT C$ 

GOSUB 86 

F C$ = “L” THEN СОТО 
62 


lg 


li 











GOTO 54 

GOSUB 86 

PRINT "BOY, AINT I DE 
SMART ONE?" 

PRINT "I GOT IT IN 
JUST Т TRIES" 
PRINT 





74 


76 
78 


80 
82 


84 
86 


88 
90 
92 





PRINT "COULD YOU 
FACE ANOTHER GAME, 
BUD?" 

INPUT D$ 

GOSUB 86 

IF D$ = “YES” THEN 
GOTO 4 

PRINT "BYE BYE THEN 
WET BLANKET” 
GOTO 82 

FORF = 1ТО 

10* RND(15) 

CLS 

NEXT F 

RETURN 
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A Ching in 
his Armour 


This is a pretty trivial program, but if you have a copy of the 71 
CHING” it can be most entertaining. As you can see, a lot of the work 
the ZX80 does in this program is non-essential. A random number 
generator could do the job just as well. But it is better that the 
operator do more than just press NEWLINE, if only to feel that he or 








23 


24 
25 
26 
27 
28 


29 
30 
31 
32 
33 


34 


she has influence on what is going on. 

1 PRINT 

2 PRINT 

3 PRINT 

4 PRIN 

5 PRINT 1 CHING” 

6 PRINT 

7 PRINT 

8 PRINT "WHAT IS YOUR 
FIRST NAME" 

9 INPUT A$ 

10 PRINT 

11 PRINT 

12 PRINT ,"AND LAST?" 

13  INPUT B$ 

14 LET A = CODE(AS) 

15 LET B = CODE (B$) 

16 CLS 

47 PRINT "YOUR 
HEXAGRAM FOR TODAY 
1S.” 

18 PRINT 

19 PRINT 

20 FORD = 1706 

21 LETC = RND(A*B) 

22 IFC >A*B/2 THEN 


PRINT ,“(shift W shift D 
space shift W shift D)" 
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35 


IF NOT C > A*Bi2 THEN 
PRINT "(shift W shift D 
shift W shift D shift W 
shift DY’ 
PRINT 
NEXT D 
PRINT 
NT 
RINT “(5 spaces)SEE 
HE ';CHR$(128J; 
HR $(174);CHR $C 28); 
HR$(168);CHR S173); 
R$0174X CHR$(179); 
R$(172;CHR$(128); 
" FOR" 
PRINT ,"AN 
INTERPRETATION" 
PRINT 
LET H — C/A 
IF H = 0 THEN LETH 
RND(B) 
PRINT "(4 spaces)YOUR 
LUCKY NUMBER 1S ^H 
POKE 16421, 24 
STOP 


























Іп НАМССАТ one player inputs a word, one letter at a time, pressing 


NEWLINE between each letter. Then the second player tries to guess 
the word, pressing NEWLINE between each letter he wants to try. If 
the second player is wrong he loses a life (hence the title). If the guess 


is right, the program prints out the correct 


in the word. 


1 
2 


PRINT ,"HANGCAT" 
PRINT "PLAYER 1. TYPE 
N A WORD OF 6 (3 
spaces) LETTERS OR 
LESS” 

RINT 

PRINT 

LET C$ = "—" (shift J 
between the quote marks) 
LET H$ = “—” 

ETJ$ = “=” 

LET K$ = "—" 

LET L$ = “=” 

LET M$ = “=” 

LET T = 9 

NPUT A$ 

NPUT B$ 

INPUT C$ 

NPUT D$ 

МРОТ E$ 

INPUT F$ 

CLS 

PRINT “READY TO PLAY? 
YOU HAVE 9 LIVES” 
PRINT “WHAT IS YOUR 
GUESS?” 





21 
22 
23 


24 
25 
26 
27 
28 


29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 


etter in its correct position 


INPUT X$ 

CLS 

F X$ = A$ THEN GOSUB 
30 
F X$ = B$ THEN GOSUB 
33 
F X$ — C$ THEN GOSUB 
36 
F X$ — D$ THEN 
GOSUB 39 
F X$ = E$ THEN COSUB 





F X$ = F$ THEN GOSUB 


СОТО 48 
LET G$ = A$ 
GOSUB 70 
RETURN 

LET H$ = B$ 
GOSUB 79 
RETURN 

LET J$ = C$ 
GOSUB 70 
RETURN 

LET K$ = D$ 
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40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


52 
53 
54 
55 


GOSUB 70 

RETURN 

LET L$ = E$ 

COSUB 70 

RETURN 

LET M$ = F$ 

GOSUB 70 

RETURN 

PRINT 

PRINT ,CEHSJSKS;LSMS 
PRINT 

F G$ = A$ AND H$ = 
B$ AND J$ = C$ AND K$ 
= D$ AND L$ = E$ AND 
‘M$ = F$ THEN GOTO 68 
PRINT 








PRINT “YOU HAVE ^; 
9 — VLIVES LEFT” 


nothing but drive you mad. 


1 


2 
3 
4 


RANDOMISE 

PRINT ,"FRUSTRATION" 
PRINT 

PRINT 
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56 
57 
58 
59 
60 


61 
62 
63 
64 


65 
66 
67 
68 
69 
70 
71 


5 


6 


PRINT 

PRINT 

GOTO 20 

PRINT “YOURE DEAD" 
PRINT "THE WORD 
WAS 'ASBSCSDSESFS 
PRINT ,"ANOTHER CAT?" 
INPUT U$ 

CLS 

IF NOT U$ = “NO” 
THEN GOTO 2 

STOP 

PRINT 

PRINT 

PRINT ,"YAY CAT” 
GOTO 60 

LETT атт 
RETURN 





The following program, from the fiendish mind of Trevor, does 


LET A$ = “TYPE IN 
YOUR NAME” 
PRINT ,"TO PLAY 
FRUSTRATION” 












n 
i 


il i m | 
Brus m | A 


г 
E 
E 
E 


ERN 


E 
ез 











7 PRINT ,"PLEASE ”;А$Ў 51 PRINT "YOUD 
8 INPUT F$ BETTER ”;А$ 
9 LET К = RND(7) 55 RETURN 
10 CLS 60 PRINT “CANT YOU OBEY 
11 GOSUB 100 EASY INSTRUCTIONS?" 
12  GOSUB (Rt 1)*10 61 PRINT "ALL | WANT YOU 
13 INPUT B$ TO DO IS '^A$ 
14 СОТО9 65 КЕТОКМ 
20 PRINT "LOOK MATE. 70 PRINT "WE CANT PLAY 
ARE YOU GOING TO IF YOU" 
GIVE” 71 PRINT "DONT ”;А$ 
21 PRINT “ME YOUR NAME 75 RETURN 
OR NOT?” 80 PRINT "ARE YOU THICK 
22 INPUT C$ OR SOMETHING?" 
23 IF C$ = "NO" THEN 81 PRINT,A$ 
СОТО 190 85 RETURN 
25 RETURN 100 FOR D = 1 TO 10 
30 PRINT "I SAID 110 PRINT 
PLEASE ”;А$ 120 NEXT D 
35 RETURN 130 RETURN 
40 PRINT "I'M GETTING 190 CLS 
FED UP WITH THIS" 200 PRINT "SOD YOU 
41 PRINT "PLEASE ”;А$ THEN "F$ 
45 RETURN 210 STOP 


50 PRINT "IF YOU WANT 
TO PLAY THIS GAME” 





Let the longer games begin 


After a while, you'll discover the 1K supplied is a bit cramping, and 
you'll long to stretch your wings and add a byte or two. When you do 
this, you'll discover that many of the good habits you've learned when 
you were restricted to 1K can desert you. It is very easy to set up a 
long and sloppy set of IF/THENs which could easily be replaced by an 
IF/THEN instruction to GOSUB. When you have memory to spare, it 
often seems too much trouble to bother cleaning up your programs. 
Unused subroutines clutter up the bottom ends of your programs. 
GOTO statements cover a multitude of situations which arose 
because you did not give sufficient thought to the maximum line 
number you would need 
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If you are going to take up flow-charting, now is the time to begin. If 
you can't be bothered with pretty triangles and things, at least 
discipline yourself to setting out — on paper — what your program is 
supposed to do, with arrows linking FOR/NEXT loops, and lines leading 
to the first lines of subroutines. If you can be bothered, it is worth 
writing out a full listing for a program once you get it working. 
Examine it in detail, and you're sure to find more elegant ways of 
achieving the same ends. Be particularly critical of each and every 
GOTO command which is non-conditional. 

All the programs given so far in this book can act as starter ideas for 
much bigger and better programs when you get extra memory. For 
example, the LUNAR LANDING program is a grown up version of the 
1K LUNAR LANDER and LABYRINTH is a much-expanded version of 
TIMEWARP and CAVE-MASTER, 

The best thing you can add to a program with added memory is the 
element of surprise. If you can include situations which do not occur 
every time a game is played, you'll ensure the game will remain 
interesting for a much longer time than would be the case if every 
situation is triggered every time a game is run. 

As you know, many of the games in this book run far too fast to be 
good games without the use of a “delay subroutine”. However, as you 
get into longer games (and | mean ones much longer than those listed 
in this section) you'll find that slow-running programs and response- 
times can be boring, especially if you have a graphical element in your 
program, which “moyes” in some way from go to go. You'll find that 
programs run much faster if you place often-used subroutines at the 
TOP of the listing, rather than after the main body of program as we 
have tended to do. The program runs faster because the computer 
must search through the whole listing, from the lowest number, when 
it comes across a GOTO or GOSUB command. If the GOSUB is near 
the top, it does not-have to go through, say, the instructions every time 
it searches for a subroutine. 

You can make the first line of the program GOTO some line number 
to jump over the subroutines. Variables which must be assigned at the 
start of a game can actually be listed tight at the end of the program, 
ending with a GOTO leading back to the start of the game program 
proper. You can have adine like "DO YOU WANT INSTRUCTIONS?" 
near the start of a program, and if the answer is "YES" the computer 
can GOTO the end of the program where the instructions are. 
LABYRINTH, if you wanted it to run more quickly, could have the 
instructions at the very end and the delay/spacing subroutine (GOSUB 
1000) near the start. Doing this would, of course, somewhat defeat the 
purpose of having a delay subroutine. However, when you add a 16K 
pack to your ZX80, you'll have very, very long programs, and you will 
not always want to wait while the computer searches a vast listing for 
the subroutine. 
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Another way of improving programs, and making them interesting 
o players for a longer time, is to use a feature you ve seen in some 
rograms, the “degree of difficulty”. Make sure that this feature really 
does increase the difficulty of the game. Ensure that, even at the 
ighest level of play, the final score (or successful landing, or 
obliterated aliens or whatever) is attainable. | 
You can add interest to games by awarding points, or scores, or 
ratings or whatever, that are genuinely related to the speed, skill о" 
whatever the player demonstrated. А further twist is to award a rank 
like “star fleet captain”, “novice” or “incompetent fool”) to the 
player, depending on how well he or she did. Points and ranks ensure 
that a player remains interested in a game for a longer time, as the 

layer will try to beat his or her previous best score or ranking. 

Keeping these features in mind, have a look at the next two games, 
input them and run them, and then try to improve on them. 









~ Lunar - 
lp Landing 


10 ЕТМ = 0 100 PRINT 

20 LETT — 0 110 PRINT 

30 LETS = 0 120 GOTO 390. | 

40 LETH = 5000 130 PRINT ,"(shift Q twice) + 

50 PRINT ,"LUNAR I$ TOWARDS LUNA (shift 
LANDING” Q twice)’ 

60 LETE = 5@00/RNDQ) 140 INPUT 2 


150 IFZ € -509 OR Z Р 50 


= —17 
ao ТЕТЕ THEN СОТО 410 


80 1ЕТВ=1 
90 | RANDOMISE 
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380 


PRINT "FOR HOW MANY 
SECONDS?" 


3*E*ABS(Z*RND(3)) 

F F 500 THEN PRINT 
"(shift Q three times) 
FUEL LOW (shift Q three 
times)" 

LET H = H ~ E*S 

FH « 20 AND Н > —10 
AND 5 <12 THEN GOTO 
460 

IF H < —10 THEN GOTO 
430 

FF «09 THEN GOTO 430 
ET X = RND(10) 

FX = 5 AND NOT M = 
THEN GOSUB 790 
RINT "^" 

RINT CHR$(128 + М); 
HEIGHT ABOVE d 
URFACE: 'H 

IF NOT О = —17 THEN 
LET Q = Q — RND(16) 
IF Q <P ANDQ > —17 
THEN СОТО 430 

IF NOT О = —17 THEN 
PRINT "(shift S six times) 
OXYGEN LEFT: ^;Q 
PRINT CHR$(128 + М) 
"^ VELOCITY: 55 

IF NOT В = 1 THEN 
PRINT CHR$(128 + 
МБМ Q three times) 
WARNING — THRUST 
ERRATIC” 

PRINT CHR$(128 + М); 
^ FUEL LEFT: Е 

PRINT CHR$(128 + М); 
“FLIGHT TIME: ^T 
GOSUB 510 








ERES 


n 
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399 
400 
410 


420 
430 
440 


450 
460 
470 


480 
490 


5 
510 
520 
530 
540 
550 
560 


570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 


690 


RINT 

OSUB 550 

RINT “THRUST (—50 TO 
50)?” 

ОТО 130 


збоч оос 
QO4 
ч 


х) 


NT "CRASH. HIT 
RFACE AT ”;АВ5(5); 
OTO 440 

LS 
RINT , “SUCCESSFUL 
NDING” 

NT 

NT "FINAL 
LOCITY: ^ABS(S; 
OTO 490 

OR A = 1 TO 64 


N 
c 


nA > 





р 


Ocvcvrvoo0 





ост 


RINT CHR$ (128 + М); 
NEXT A 
RETURN 
PRINT 
PRINT ,,“(space shift F 
shift D)" 
FOR Y = 1 TO2 
PRINT ,,"(space)"; 


CHR$(128 + MJ; 
CHR$(128 + M) 
NEXT Y 
PRINT ,, “(shift A shift G 
shift С shift A)" 











PRINT ,,"(shift A shift C 
shift G shift AJ" 

PRINT 

FOR G = 1102 


LET К = RND(10) 
IF К = 1 THEN LET W$ 


moet 
= onn 


= 2 THEN LET W$ 


X 


” 


‘= 3 THEN LET W$ 


ШЕЛ 


K = 4 THEN LET W$ 


Hi 


21 
IA 





lim di 


"m 


5 THEN LET W$ 


ЇЇ 





и 


Б 


Я 


p 
" 





700 
710 
720 
730 
740 


750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 


880 


890 


= 6 THEN LET W$ 


DAE 


“= 7 THEN LET W$ 


wow 


"Lg THEN LET W$ 


en 


9 THEN LET W$ 


дізлізлізізісз 
[ 


МЕХТ С 
PRINT 
RETURN 
CLS 
LETM = М +1 
RANDOMISE 
FORV =1ТО7 
RIN 
NEXT V 

LET U = RND(32000) 
FORV = 1TO 6 
PRINT “HOUSTON, WE 
HAVE A PROBLEM...” 
PRINT ,CHR$ 

127 + RND(11)); 

" DANGER ";CHR$ 
(127 + RND(15 

NEXT V 

PRINT 














010 CLS 
020 RETURN 


050 P 
9060 RETURN 

1070 LET B = B + RND(3) 
1080 PRINT "THRUST 


PRINT "MALFUNCTION. 
USE COMPUTER" 
PRINT "ACCESS 

CODE 20/7 FOR 
DETAILS" 

INPUT V 

CLS 

F NOT U = V THEN 
GOTO 430 

ЕТУ = RND(2) 

FV = 1 THEN GOSUB 
1030 
FV = 2 THEN GOSUB 
070 
PRINT “МЛ. TO RETURN 
TO FLIGHT” 

NPUT V$ 


О = 100 + RND(19) 


040 PRINT "OXYGEN METER 


UNRELIABLE” 
NT "(shift A 23 times)" 


CONTROL ERRATIC” 








990 PRINT "(shift W 22 





times 








1010 RETURN 
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400 IF NOT A = K THEN 670 IF NOT B = C THEN 
GOSUB 420 GOSUB 1240 
410 IFA = К THEN GOSUB 680 GOTO 140 
690 690 LET К = RND(4) 
420 LET K = RND(4) 700 IFK = 1 THEN GOSUB 
| 430 IFK = 1 THEN LET E$ = 760 
' "RODENTING КАТ” 710 IFK = 2 THEN GOSUB 
M 440 ТЕК = 2 THEN LET E$ = 810 
! | "WART-FACED 720 IFK = 3 THEN GOSUB 
Н | IK Z3 THEN LET E$ 859 
Labyrinth m" 100 “ELLIPSOID OCTOPUS” 799 EN GOSUB 
| | 400 WACKED-OUT LET ES 740 GOTO 140 
| t a WIZARD” 750 PRIN 
| Nu 470 PRINT "FOOL, YOUVE 760 PRINT "YOUVE FALLEN 
| | WALKED IN ON" THROUGH" 
| 10 GOSUB 1000 200 IF W <1 THEN LET 480 LET E = RND(4) 770 PRINT," A 
20 PRINT “LABYRINTH” W= 1 Nu 490 IF E = 1 THEN LET F$ = RAPDOOR...." 
30 PRINT ,“(shift С nine 210 PRINT "(shift Q seven = “FLAMING BRAND” 780 LETW = W 1 
times)" times) THIS 15 500 IFE = 2 THEN LET FS = 790 LET S = 5 — RND(2) 
40 LETX = 0 MAZE/TUNNEL" | "SHINING SWORD" 800 RETURN 
50 LETS = 30 220 PRINT | 510 IF E = 3 THEN LET F$ = 810 PRINT "A WALL OF 
60 LETW = 1 230 IFW = 10 THEN GOTO н "POISONED NEEDLE" FLAME ENGULFS YOU" 
70 PRINT "YOU ARE AT 1070 520 IF E = 4 THEN LET F$ = 820 LETW = уу 1 
THE START OF A" 240 PRINT "NUMBER “АУ; mí: “GOSUB-MACHINE-GUN” 830 LETS = 5 — RND(2) 
8) PRINT “LABYRINTH OF ^ OF THE LABYRINTH” и 530 PRINT "(four 840 RETURN 
MANY TWISTING," 250 PRINT : spaces)"; E$;" ARMED" 850 PRINT "THE LOVELY 
90 PRINT "TURNING 260 PRINT ,"(10 IS THE END)’ 540 PRINT "(three PRINCESS SEMOLINA" 
TUNNELS. YOU HAVE" 270 PRINT und spaces)WITH A ‘(FS 860 PRINT "SOOTHES YOUR 
100 PRINT "^ A SACK 280 LETX = X +1 и 550 PRINT FEVERED BROW" 
E] HOLDING 30 PIECES OF” 290 PRINT "(shift S) THIS IS ~ 560 PRINT "WHICH WEAPON 870 LET S = S + RND(5) 
110 PRINT "SILVER. YOU CHALLENGE NUMBER ”;X ЕА DO YOU CHOOSE?” 880 LET W = W + RND(3) 
| MUST GET ТО” 300 IFS«1 THEN LETS = 5 mu 570 PRINT 899 RETURN 
| 120 PRINT "THE END OF 310 PRINT таный 580 PRINT “А FLOATING 900 PRINT "JOY OH JOY. A 
| THE LABYRINTH WITH 320 PRINT "YOU HAVE “5; POINT ROM ау,” HOARD OF” 
АТ” “ SILVER PIECES” —— 590 PRINT 910 PRINT "SILVER. CHOOSE 
130 PRINT "LEAST 20 TO PAY 330 LET K = K + RND(5) Nu 60) PRINT "A FOR/NEXT UP TO 5 PIECES” 
THE MINOTAUR” 340 PRINT UM LOOP (2),” 920 PRINT "BUT BE 
| 140 PRINT 350 PRINT "FACING YOU 610 PRINT WARNED. THE MORE" 
| 150 PRINT ,"PRESS NOW ARE “Қ; DOORS” шы 620 PRINT "OR A POKED 930 PRINT "YOU TAKE, THE 
] NEWLINE” 360 PRINT “WHICH ONE и ADDRESS (3? MORE IT WILL” 
| 160 INPUT A$ WILL YOU TRY?” Hd 630 INPUT B 940 PRINT "COST YOU. HOW 
| 170 КАМООМ!5Е 370 ІМРОТА M 640 LET C — RND(3) MANY?" 
180 IF NOT A$ = "" THEN 380 GOSUB 1000 | | 650 GOSUB 1000 950 INPUTD . 
STOP 390 IF RND(10) = 5 THEN нин. 660 IF В = C THEN GOSUB 960 LETS = 5 + 0 
190 GOSUB 1000 GOSUB 690 1170 970 LET W = W — 0/2 
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RETURN 

CLS 

FORO = 1TO 
20*RND(50) 
NEXT O 

РОК І = 1ТО 5 
PRINT 

NEXT I 

RETURN 

IF NOT W — 10 THEN 
RETURN 

PRINT "YOU ARE AT 
THE END" 

RINT "DO YOU HAVE 
NOUGH SILVER?” 
RINT "PRESS N/L TO 
ND OUT" 
UT C$ 
S < 20 THEN PRINT 
"THE MINOTAUR HAS 
EATEN YOU" 
IF 5 < 20 THEN GOTO 
1110 
FS > 19 THEN PRINT 
"YES, YOU HAVE "5S; 
^ SILVER" 
IF 5 >19 THEN PRINT 
"PIECES. YOU HAVE 
WON”, 
IF S > 19 THEN GOTO 
1130 

STOP 

PRINT "YOU BEAT 
THE “E$ 

LET S = 5 + RNDG) 
PRINT "AND HAVE “%S; 
” SILVER PIECES” 

LET W = W + RND(4) 
PRINT 





"TZ 
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220 
230 
1240 


250 
1260 


270 
280 


290 





300 


PRINT "YOU ARE 
APPROACHING 
SECTOR ^W 

ETURN 

PRINT "THE E$; 

" BEAT YOU," 

LET S = 5 ~ RND(4) 
PRINT "LEFT YOU 
WITH 457 SILVER” 
LETW=W-1 

IF W <1 THEN LET 
w=1 

PRINT "AND SENT YOU 
BACK TO 'w 
RETURN 




















The ZX80 


as Teacher 


The ZX80 is an effective game-player. Writing and running programs 
on the computer enhances programming skills. However, the ZX80 can 
also be used in a direct role as a teaching aid. Its main use is in the 
field of quizzes. While the ZX80 can only select from a list of non- 
numerical questions, the computer can easily be programmed to 


Another use in teaching is for the ZX80 to create lists and tables. We 











create its own numerical questions. 

will look at this use first. 

1 PRINT 

2 PRINT 

3 PRINT, 
"MULTIPLICATION 
TABLES" 

4 PRINT 

5 PRINT 

6 PRINT 

7 PRINT "WHICH TIMES 
TABLE WOULD YOU" 

8 PRINT ,"LIKE ME TO 
PRINT?" 

9 NPUT A 

10 CLS 

11 FORJ] -1Т012 

12 PRINT ," X A; 





"om А 


13 
14 
15 
16 


17 
18 
19 


20 
21 
22 
23 


24 


NEXT | 

PRINT 

PRINT 

PRINT "DO YOU WANT 
ANOTHER GO?" 

INPUT A$ 

CLS 

IF NOT A$ = “NO” 
THEN GOTO 4 


РОК 5 = 1TO5 
PRINT 

NEXT S 

PRINT , "OK. BYE FOR 


NOW" 
STOP 
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коет" 


A far more useful table is produced by the following program (and 
the display is a little more imaginative). Again, this program is given to 
suggest ideas for your own programs. 





A Degree 
of Conversion 





SEQ SAR 





Қ 
У ММ 
NS 

















OL a 
10 RANDOMISE 180 IF B <A THEN LET 
20 PRINT "(5 spaces)A F=B 
DEGREE OF 190 IFA <BTHEN LET 
CONVERSION” E = B 
30 ET K = RND(9) 200 PRINT "IN WHAT 
40 FORS = 1ТО 32 DEGREE STEPS?" 
50 PRINT CHR$(K + 129); 210 INPUT 2 
60 МЕХТ5 220 CLS 
70 РКІМТ 230 PRINT “F”, "C", “К” 
80 PRINT 240 PRINT " ” 
90 PRINT 250 LETH = RND(9) 
100 PRINT 260 FOR U — 1 TO 21 
110 PRINT "WHAT IS THE 270 PRINT CHR&(H + 129); 
LOWEST TEMP. (F) YOU" 280 NEXT U 
120 PRINT “WANT TO 290 PRINT 
CONVERT?" 300 FORD =FTOE + Z 
130 INPUT A 310 LET C = 5*(D —32)9 
140 PRINT ,"AND HIGHEST?" 320 LE = C + 273 
150 INPUT B 330 PRINT ,D,C,.K 
160 IFB <А THEN LET 340 LETD  D-Z — 1 
E=A 350 NEXT D 
170 IFA <B THEN LET 360 STOP 
F=A 
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In all programs, and especially in educational ones, you have to try 
and anticipate any mistakes (deliberate or otherwise) users will make 
when running a program. The lines 160 to 190 cover the possibility that 
a user will input the higher temperature first, rather than the lower one 
which was requested. 

There is no reason why educational programs should not have 
displays that are as attractive as games programs, so lines 30 to 60 and 
lines 250 to 280 select, in effect, a random underline. It is a good idea 
to incorporate such features whenever you have sufficient memory. 

Line 300 tells the ZX80 to print the value above the maximum 
requested, in order to ensure that the required temperature is covered. 

This is quite an interesting program to run, especially if you select 
an enormous range of temperatures, and select an unexpected 
increment (like 117 degrees). Of course, the ZX80 deals as easily with 
these cases as it does with the more predictble 0 degrees to 100 
degrees in steps of 10 degrees, but it seems a little surprising to first- 
time users that it does so. 

^s an exercise, modify the program so it will not print any value but 
9 if the temperature drops below absolute zero (0 Kelvin — 273 C). 

We will look now at a numerical quiz, in which ihe ZX80 creates the 
questions, checks their correctness, and then gives the user a score. 





Multiplication 
Quiz 


1 LETH = ф 5 PRINT “DEGREE OF 

2 GOSUB 46 DIFFICULTY (1 TO 10)?” 

3 PRINT, 6 INPUT A 
“MULTIPLICATION 7 IF A <@ORA > 10 THEN 
QUIZ" GOTO 5 

4 GOSUB 46 8 LETA — A2 
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9 IF A = 0 THEN LET 30 PRINT ,"(single 
А = 1 space)RIGHT OUT OF "С 
0  GOSUB 46 31 PRINT "PRESS 
11 PRINT "HOW MANY NEWLINE”; 
QUESTIONS?” 32 F NOT С = B PRINT 
2 NPUT B “(single space) TO 
3 IFB«1THEN GOTO 11 : CONTINUE" 
14 CLS 33 МРОТ A$ 
15 FORG = 1ТО В 34 CLS 
6 LET C = A*RND(160) 35 NEXT G 
7 LET D = A*RND(10) 36 FORK «11703 
18 „ЕТЕ = C*D 37  GOSUB 46 
9  GOSUB 46 38 NEXT 
20 PRINT "QUESTION 39 PRINT "END OF QUIZ. 
UMBER ' 5G YOUR SCORE IS” 
21 GOSUB 46 40 PRINT ,H*100/C;" PER 
22 PRINT "WHAT IS ^C; CENT” 
" TIMES 20/22 41 STOP 
23 NPUTF 42 LETH = Ht 1 
24 PRINT "(5 spaces) ^F 43 GOSUB 46 
25  GOSUB 46 44 PRINT "CORRECT. THE 
26 IF F = E THEN СОТО 42 ANSWER 15 "^E 
27 PR “INCORRECT. THE 45 GOTO 28 
ANSWER 15 'E 46 FORS = 1ТО З 
28 GOSUB 46 47 PRINT 
29 PRINT ,"YOUR SCORE 48 NEXT S 
15 “GH 49 RETURN 
To make this an addition, subtraction or division quiz, simply 
change the arithmetic operation specified in line 18, and the word 
(TIMES in the above program) in line 22. 


There are a number of things which can be learned from this 
program. The most obvious is the use of the subroutine (GOSUB 46) 
which spaces the question and answer across the screen, enhancing 
readability without wasting memory with endless blank PRINT 
statements. Line 24 prints the user's answer, so it can be compared 
with the correct answer. It can be quite frustrating if the answer just 
disappears when NEWLINE is pressed. Lines 7 and 13 ask the questions 
in lines 5 and 11 again if an answer in the required range is not given 
the first time. There is no reason why you cannot put in an additional 
line which says something like ONLY ANSWERS BETWEEN 1 AND 10 
ARE ACCEPTABLE if*you have sufficient memory. Lines 8 and 9 can be 
omitted if you want very difficult quizzes to be available. The zero to 
10 option in line 5 is to give the user the impression that he or she has 
greater influence on the program than in fact'is the case. As ап 
exercise, try to rewrite lines 8 and 9 so only one line of program is 
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@ === E T 






и | 


p 





н Р. 


1 


ш 
ш 


given. It was put in the two-line form so it would be clear what was 
happening, but it can easily be written more efficiently. 

At the end of all questions in a set, but the last, lines 31 and 32 cause 
PRESS NEWLINE TO CONTINUE to appear at the bottom of the 
display. Line 32 ensures that after the final question only the words 
PRESS NEWLINE to appear. 










Squares 














The following table, which prints out numbers and their squares, 
uses a counter to stop execution when the screen is full. You can use 
this idea if the program output is sequential and is likely to cause the 
program to crash by demanding more screen space than you have. 

1 LETK = 6 14 FORX = АТО В 

2 GOSUB 22 15 ЕТК =K+1 А 

3 PRINT “SQUARES” 16 IFK = 20 THEN GOSUB 

4 GOSUB 22 26 

5 PRINT ,"LOWEST 17 PRINT, X;" SQUARED 
NUMBER?" IS ХХ 

6 NPUT A 18 NEXT X 

7 GOSUB 22 19 PRINT 

8 PRINT ,“HIGHEST 20 PRINT ,"END OF TABLE" 
NUMBER?” 21 STOP 

9 NPUT B 22 FORC =1TO3 

19 GOSUB 22 23 PRINT 

11 PRINT “PRESS NEWLINE 24 NEXT C 
FOR TABLE" 25 RETURN 

12 INPUT U$ 26 PRINT “PRESS NEWLINE” 

13 CLS 27 LETK = $ 
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ш 257 RETURN 307 RETURN 
2 des ^ 260 LET E$ = “YOUNG” 310 LET E$ = "HOT" 
30 RETURN a 265 ET F$ - "JEUNE" 315 LET F$ = "CHAUD" 
Vm sure you will now be able to work out an endless stream of ME 269 ҮМ "HERE" НИ MM "FULL" 
numerical quizzes for yourself, your children or your class to tackle. 275 LET ЕФ = “icy 325 LET ЕФ = “PLEIN” 
Non-numerical quizzes are very useful, but they require much more E 277 RETURN 327 RETURN 
work in programming. Whereas the ZX80 can create its own numerical a " 280 LET E$ = "BETTER" 330 LET ЕФ = “SUGAR” 
questions, each non-numerical question must be specified, and each лен 285 LET ES = "MEILLEUR" 335 ЕТ FS = "LE SUCRE” 
answer included in full in the program. 287 RETURN 337 RETURN 
290 LET E$ = "MORE" 340 LET ES = 
295 LET F$ — "PLUS" "EVERYWHERE" 
297 RETURN 345 LET F$ — "PARTOUT" 
300 LET E$ = “INSIDE” 347 RETURN 
305 LET F$ — "DEDANS" 








Note that there is no mechanism in this program for preventing the 
same question being asked more than once in a run. The limit set on 
the random number in line 110 (that is, the number in brackets after 
RND) is equal to the number of different questions in the program. 
You can get ten programs of this length onto one side of a C12 
cassette (just), so — with programs similar to the one listed above — a 
200-word vocabulary can be tested with the programs stored on a 
single cassette. If your questions need more than a one word reply, 
you will find (of course) that you can fit far fewer questions into a 
single program before running out of RAM. 


t 
ў! 


French 
Vocabulary 


ж 
































Here is a sample quiz which can be adapted for any subject. № 

10 RANDOMISE 160 IF G$ = F$ THEN PRINT VT 

20 LET A$ = "GIVE THE BS 
FRENCH FOR” 165 IF NOT G$ = F$ THEN 

30 LET B$ = “CORRECT” PRINT CS;F$ = 

40 LETC$ = “INCORRECT. 170 PRINT “PRESS NEWLINE” 
ANSWER IS " 175 INPUT H$ y 

50 PRINT "FRENCH VOCAB 180 EXT | g | 
" 7 185 NE . 

6) LETA = 0 190 PRINT "OUT ОР”; Life 

7 PRINT "HOW MANY 4 QUESTIONS YOU" 

И QUESTIONS?" 200 PRINT “HAD ЗА; Expectancy 

80 NPUTN ^ RIGHT, ^;A*100/N; 

90 FOR] =1TON “ PERCENT " 

100 CLS 210 PRINT “ANOTHER СО?" 

119 LET R = КМО(1@) 220 INPUT D$ 

120 GOSUB 10*R + 240 230 IF D$ = "YES" THEN 

130 PRINT А ЕЎ GOTO 60 | 

1% NELT GS, THEN LET 210 TES = “NEXT” There was a light-hearted life expectancy program earlier in the 
A=A+1 255 LET F$ = "PROCHAIN" book. The next program, based loosely on actuarial tables, is closer to 
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a "serious" life expectancy program. 


simplified, and therefore to some degree re 
within 1K. It is not really an "educational" 
be used within а classro: 
computers) but this seemed the best plac 


ә о соч 0 Us dA ом 


"IE = әз ә - à 
хо со м e лысы bel "À © 


N 
ж 


21 
22 
23 
24 


25 
26 
27 


LETC = 0 
PRINT “LIVES” 
LET A — 71 


PRINT “АСЕ (YRSY" 

INPUT B 

GOSUB 54 

PRINT “MARRIED?” 

INPUT A$ 

GOSUB 54 

IF A$ = "YES" THEN LET 
= 76 

PRINT “HAVE YOU BEEN 

RICH OR POOR” 

PRINT “MOST OF YOUR 

LIFE?” 

INPUT C$ 

GOSUB 54 

IF C$ = "YES" THEN LET 

АшА-3 

PRINT "ARE YOU 

OVERWEIGHT?” 

INPUT D$ 

GOSUB 54 

F D$ = "NO" OR B « 40 

THEN GOTO 24 

IF D$ — "YES" THEN 

PRINT, 

"BY HOW MANY 

POUNDS?” 

NPUT P 

LETC = C +P 

GOSUB 54 

PRINT “EXERCISE? 

NEVER. SOMETIMES. 

OFTEN” 

NPUT E$ 

GOSUB 54 

IF E$ = “SOMETIMES” 

THEN LET A = A + 3 
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28 


29 
30 


31 
32 
33 
34 


35 


36 
37 
38 


39 
40 


41 
42 


43 
44 
45 
46 
47 


48 
49 


50 
51 


52 


53 


However, it has had to be 


ndered less accurate, to fit 


program (although it could 
om is a demonstration of the "real" use of 
e in the book to put it. 


IF E$ = "OFTEN" THEN 
LETA =A +5 

GOSUB 5 

PRINT “ARE YOU OFTEN 
TENSE?” 

NPUT F$ 

GOSUB 54 

IF F$ = "YES" THEN LET 
А=А-—3 

F E$ = "NO" THEN LET 
А=А+З 

RINT “DRINK? LITTLE 
(0), MOD.5)" 

PRINT ,"HEAVY(10Y 
NPUT G 

ЕВ > А ТНЕМІЕТА = 
В + (В — А)2 

GOSUB 54 

PRINT "DO YOU 
SMOKE?" 

NPUT H$ 

FHS = "YES" THEN LET 


GOSUB 54 

PRINT ,"OFTEN ILL?” 
NPUT K$ 

E K$ = "YES" THEN LET 
А=А-—3 

E K$ = "NO" THEN LET 
A=A+3 

GOSUB 54 

PRINT “EST. AGE AT 
DEATH.” 

PRINT 

PRINT “FEMALE — ^5 
А%Ж7-С5-С 
PRINT, "MALE — ^; 
A-C5-€6G 

STOP 

















54 CLS 57 NEXT Z 
55 FORZ =1TO3 58 RETURN 
56 PRINT 


_—.—.—————Є—+—————— 


Useful Subroutines 


Science of Cambridge claim the 1K RAM supplied with the standard 
ZX80 is equal to 4K of anybody else's RAM, because most commands 
and statements are stored in a single byte. Although it appears that 
this claim is a little ambitious, the RAM can be made to hold a pretty 
long program (from 30 to 100 lines) and the shortage of memory 
teaches ingenuity in programming. As you'll have discovered, 
Sinclair’s dialect of BASIC has no facility for READ/DATA or for STEP 
and works only with whole number (integer) arithmetic. In this section 
of the book we will look at some useful subroutines, some of which 
have been introduced in the programs. | thought it would be handy to 
have them all together in one place. Many of the subroutines were 
worked out by inventive members of the Users Club and have already 
been printed in the club magazine INTERFACE. 

Clive Davies of Cheltenham devised the following subroutine to 
replace the missing READ/DATA function: 


10 LETN = Q0 40 LET Z$ = TL$ (Z$) 
20 FOR] 9 TO4 50 NEXT) 
30 LETN = (N*10 + CODE 

(Z$ — 28) 


This subroutine supplies five digits of data stored as Z$. 

іп Basildon, Dave Fenn developed an elegant subroutine to 
overcome the lack of a STEP facility in Sinclair BASIC: 

Instead of: 


10 FOR X = 9 TO 130 STEP 20 PRINT X 
10 30 NEXT X 
Dave suggests substituting: 
10 FORX = 9TO 130 30 LETX =X t 10 — 1 
20 PRINT X 40 NEXT X 


To STEP down, substitute for line 39: LET X = X — 10 — 1, and for 
line 19: FOR X = 130 TO 6. . 

The STEP-up routine is used in the temperature program A DEGREE 
OF CONVERSION. 
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An efficient way of making the most of memory in some programs is 
to arrange for subroutine destinations to be specified by a multiple of, 
or a multiple plus an arithmetic manipulation of a randomly 
generated number. That sounds more complicated than it is in 
practice. Look at the following program: 


10 LET K = RND(4) 70 PRINT “SUBROUTINE 70” 
20  GOSUB 109*K + 50 75 RETURN 

30 PRINT 80 PRINT “SUBROUTINE 80" 
40 PRINT "THIS IS LINE 407 85 RETURN 

50 STOP 90 PRINT “SUBROUTINE 90” 
60 PRINT “SUBROUTINE 60” 95 RETURN 

65 RETURN 


As you can see, line 20 simply manipulates the random number 
generated in line 10 to produce a destination for the subroutine jump. 
The manipulation can be a simple multiple (COSUB 5%)) a multiple 
plus an addition (as in line 20) or subtraction, or a conditional 
expression plus a manipulation of the random number (IF } > 10 THEN 
GOSUB 10%1 + М). 

Science of Cambridge have an optional plug-in 8K ROM which 
provides floating-point arithmetic, but without it, ZX80 owners have to 
fall back on subroutines or "tricks" to get an approximation of 
decimal places. There is a subroutine in the manual, but it uses a lot of 
precious memory. The following is not really satisfactory, but there is 
a way to approximate a few decimal places. One way is to multiply 
one of the integers you're dealing with by, say, 100 before you start 
division and then mentally add the decimal point yourself, two digits 
from the right when you get the result. 

For example, to divide 12 by 7 (if you'd ever bother to use your ZX80 
to do such a thing) you would normally input: 

10 LET] = 12/7 
20 PRINT J 

This would give the answer 1 which is pretty useless. To get two 

"decimal places” you could input the following program: 





10 INPUT A 40 PRINT J;" WITH 
20 INPUT B ` DECIMAL POINT TWO 
30 LET J = 100*A/B DIGITS FROM RIGHT” (A 


subroutine can easily be 
devised to get the ZX80 
to put the decimal point 
in, but it seems scarcely 
worthwhile.) 





This program would give you, if you let A equal 12 and B equal 7, a 
value for J of 171 (^1.71") which is a lot better than 1 for an answer 
(and not too far away from the real answer of 1.71428...). Multiply A by 
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1000 and you get three "decimal places", i.e. 1.714, but this would 
limit you to numbers less than 32, to avoid exceeding the ZX80's upper 
integer limit. 

The subroutine is useful if you want the ZX80 to give the result of a 
computation as an approximate percentage (as in the French 
vocabulary program, and the one which flipped a coin). For example, 
if you wanted the ZX80 to express 7/12 as a percentage, you could not 
use the line: PRINT “THE ANSWER IS :(7/12)*100;" PER CENT". This 
would give you the result 0. However, if you change the order of the 
computation to read: PRINT "THE ANSWER 15 /57*10012;" PER 
CENT" you would get an answer which would be within 1 per cent of 
the correct value. 

In the program DIMMER SPIDER we introduced a line which 
removed the numerical message at the bottom of the screen which 
indicates a STOP command has been executed. This line, suggested by 
lan Rodgers of Wimbledon, is: POKE 16421, 24 and is placed in a 








program just before the STOP command. 
Colin Hughes of Luton has written a subroutine to renumber lines of 
a program listing in steps of 19. The subroutine was slightly modified 
by John Bloxham of Stratford and Brian Cross from Liphook (John and 
Brian both suggested swapping РЕЕК addresses in line 9989). 
9985 EM RENUMBER 9994 IF PEEK(N)*256 + PEEK 
9986 LETL = 10 (М + 1) =.9985 THEN 
9987 LET S = 10 STOP 
9988 LET B = 16424 9995 POKE N, L/256 
9989 LET E — PEEK 9996 POKEN + 1, 
(16393)*256 + PEEK L — (L/256)*256 
(16392) 9997 LETL — L +5 
9990 LETF = 0 9998 IF PEEK(N) = 118 THEN 
9991 FORN = BTOE LETF = 0 
9992 IF F THEN GOTO 9998 9999 NEXT М 
9993 LET F = —1 
As john Bloxham points out, the manual indicates that the ms byte 
of the line number comes first, but that appears to relate to the actual 


program storage area in the RAM, whereas 16392/3 relate to the area 
marked VARS. 

Joe Fitzpatrick, a users club member from Dublin suggests a 
subroutine which stops a program crashing when the screen is full. He 
included it in a program which displays each address and the 
character stored in it. His program essentially consists of printing the 
characters whose values are the variable A in the expression A = 
PEEK(B) where B is a number in the range 16424 to 17424. The 
subroutine to temporarily halt the program when the screen is full is: 


30 IF PEEK П6421)<3 ш. 
THEN GOSUB 100 100 — PRINT 
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110 — PRINT "PRESS 130 CLS 


NEWLINE TO 440 IFAS = ^" THEN 
CONTINUE" RETURN 
120 INPUT A$ 150 STOP 


The use of the quote marks in line 140 ensures that the ZX80 will 
RETURN only if just NEWLINE is pressed. 
Pressing any other key before NEWLINE will cause the program to 


STOP. 
Paul Jobling, from Rugeley, developed two useful subroutines 


which he sent to the users club. The first imitates the action of LEFT$ 
in other versions of BASIC: 
1000 LET X$ = 
CHRS(CODE(X$)) 

1010 RETURN 

Paul points out that this is useful for input which can be YES/NO or 
other decisions. It prevents confusion if a player inputs Y for YES, 
instead of YES, which it will also accept. GOSUB 1009, if you have 
assigned the last variable input X$ will make X$ become the first letter 
of X$. That is, YES becomes Y, as does YUP, Y and YESSIR. 

The second subroutine contributed by Paul allows you to specify 
the last letter in a word, a function carred out in some BASICS by 
RIGHTS: 


990 Т1ЕТА = ф 1040 СОТО 1010 

1000 LET X$ = Z$ 1050 FORF=1TOA-—1 

1010 IF CODE Z$ — 1 THEN 1060 LET X$ = TL$(X$) 
GOTO 1050 1070 NEXT Е 

1020 LETA = A +1 1080 RETURN 


1030 LET Z$ = TLSZ$) 

You will recall that a delay was built into many games. The delay 
subroutine was of the form: 
1000 FORX = п, ТО п, 

(where n, and п, are 1020 NEXT X 
any numbers) 1030 RETURN 

In fact, it is not necessary for the CLS to be within the loop. It can 
just as easily be after.the NEXT line and before the RETURN line or 
even at the start of the subroutine. It is just a matter of personal 
choice where you put CLS. The ZX80 will delay for a period related to 
the difference between n, and n, whether it has anything to do within 
the loop or not. If you want the delay to be variable, line 1000 can be 
of the form: FOR X = 1 TO A*RND(B) where A and B are either set at 
the beginning of the game, or vary depending on other variables 
during the course of a run. For example, A can rise or decrease 
depending on the value of the master FOR/NEXT loop which is 
counting the number of attempts a player is having in a game, or A can 
be a "degree of difficulty". 


1010 CLS 
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Jeremy Ruston of Kensington contributed a single line which tells 
you how many bytes (that is, how much memory) the current program 
takes up. Just input: 9999 PRINT PEEK (16392) + PEEK (16393}*256 — 
16461. If you then input RUN 9999 you'll find the screen will clear and 
a number will appear in the top left-hand corner of the screen, the 
number of bytes in the program which you currently have in the 
computer. f 

You can get your ZX80 to play music (after a fashion) by using the 
following program, written by club member Philip Joy of Romford. 

This is just the bare bones of the music idea. You can use the 
concept to write music into programs so a win is rewarded with a trill 
of a few notes, or whatever. This program uses a machine code 
subroutine (the USR function). 

First input the following: 

10 POKE 17009, 237 
20 POKE 17001, 65 
30 РОКЕ 17002, 201 

RUN this program, then delete lines 10, 20 and 30 by inputting the 
line number. Do not press NEW. 

Next, input the following program: 





5 ET K = 17000 80 FORA — 1TO Y*D 
10 ІМРОТХ 90 RANDOMISE USR (K) 
20 INPUT Y 100 | NEXT A 

30 INPUT 2 110 FORA =1TOZ 

40 FOR D = 1 TO 30 120 RANDOMISE USR (К) 
50 ОК A = 1 TO X 13) NEXT A 

60 RANDOMISE USR (K) 140 NEXT D 

70 NEXT A 


Run this inputting values for X, Y and Z of 50, 60 and 70. Then 
experiment with other values. You need to turn the volume of your TV 
to maximum to hear the “music”. 





A Few Facts About the ZX80 


The ZX80 display, which is not memory mapped (so moving graphics 
are out of the question, unfortunately), can be up to 24 lines of 32 
Characters each. The computer has its own modulator which produces 
an RF signal which can be- connected via the lead provided to a TV set. 
The 1 volt composite video signal which feeds the modulator inside 
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the ZX80 сап be taken out, vía a wire, and fed via a buffer circuit to à ‘ NEXT At the end of the counter loop (set up by 
monitor. . . FOR..TO), sends control back to the FOR...TO 
1K byte, inside the ZX80, is supplied as standard. Extra RAM must be | line (and X becomes X + 1) U 
added externally via the edge connector at the rear. The ZX80 will take CONTINUE Allows program executi i i 
a maximum of 16K bytes. The edge connection at the rear of the ZX80 losing variable cution to continue without 
has the following: 8 data, 16 address, 13 control lines from the | 
processor, clock, chip select for internal RAM and OV, 5V stabilised | Input/Output Statements 
and 9 to 11V unstabilised supply lines. - PRINT Allows comput 
The data and address lines are not buffered, and there are no ПО INPUT | puter to output data on TV screen 
ports. Sinclair has plans to introduce an interface to support floppy T Allows user to enter data via keyboard 
discs, printer, teletype or ШО bus. There are sockets on the rear of the | Assignment S 
computer for connection to standard cassette recorders. Leads are À LET ignmen tatement 
provided with 3.5 mm jac plugs on them. The ZX80 loads the whole of | U Assigns a value to a variable, as in LET X = 10 
the BASIC program into the cassette. You cannot load or fetch data on Others 
its own. . . А | CLEAR ; 
Like most BASICS, "Sinclair BASIC” is not compatible with other n Clears the stored values of variables 
BASICS, although many programs can be adapted to run on the ZX80. o CLS Clears the screen 
The computer's BASIC interpreter, character set, operating system and P DIM Sets up the size of an array (one-dimensional 
monitor are contained in a 4K byte ROM, and works in integer 2 byte only, no string arrays) 
arithmetic (with a lower imit of — 32767 and an upper limit of 32767). REM Remark. This does not make th 
Arithmetic operators provided are ~, +, multiply, divide and raise to anything, but is useful in a ч computer do 
the power. With the 4K ROM as supplied, the ZX80 does not handle | know what the following s ic do to let you 
floating point arithmetic, log, tan and the like, or exponents. An | REM COMPUTES VELOCITY ion оез, e.g. 
optional plug-in 8K ROM (which fits into the 4K ROM socket) does not enough memor “to indul; in RED often 
provide these. It is only available as an extra. ‘oll | statements Y ulge in REM 
The BASIC instruction set for the ZX80 is as follows: - 
Bas System Commands RANDOMISE Sets seed of random number generator equal 
to number of frames of TV since switch-on 
NEW Clears ZX80 for new program POKE Allows user to talk to computer in binary 
RUN Runs the current program PEEK Peeks at contents of an address 
LIST Lists the current program CHR$ Allows user to print any character 
LOAD Loads a program from tape STR$ Allows integer number of variable to be 
SAVE Saves a program on tape | 1 treated as a string variable 
15 Gives the string minus its first character 
Control Statements CODE Gives the code corresponding to the first 
GOTO Shifts control to line number specified character in a string 
IF THEN IF a condition is satisfied THEN carry out RND Provides a pseudo-random number 
some other control statement USR Machine code subroutine 
GOSUB Go to subroutine specified ABS The absolute value of a number 
STOP Pretty obvious what this one means 
RETURN This comes at the end of a subroutine, and 


sends control back to the line after the GOSUB 
line ed 


FOR..TO A counter, as in FOR X = 1 TO 10 


id: 102 
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Statements available 


The 8K ROM 


In this list, 
The 8K ROM fits into the socket for the 4K ROM and provides a у represents a variable. 
number of additional features for the ZX80. Programs are not х, у, 2 represent numerical expressions. 
upwardly compatible, that is, you cannot LOAD tapes recorded from | р 
an old ROM machine into a new ROM. However, they can be typed in m,n represent numerical expressions that are rounded to the 


nearest integer. 





again on a new ROM machine practically without alteration (see 1 
introduction of this book for the changes needed). The 8K ROM is e represents an expression. 
supplied with an additional manual and a new overlay for the 
keyboard. The most important features of the 8K ROM are: 


— full floating-point arithmetic to 9-digit accuracy 
— fogs, trigs, and their inverse functions, graph plotting facility 


represents a string valued expression. 


а n 


represents а statement. 


Note that arbitrary expressions are allowed everywhere (except for 


d imated graphics using PAUSE n the line number at the beginning of a statement). Thus "GOTO LN A ** 
— pseudo-anim g г 








2" is valid. 
— full set of string-handling facilities CLEAR Deletes all variables, freeing the space they 
— n dimensional arrays occupied. 
— п dimensional string arrays, cassette LOAD and SAVE with CLS (Clear Screen) deletes all PRINT output in the 
named programs. display file. 
Numbers CONTINUE Resumes execution of the last run program — 
! B | int bi А ving 9x 10 ^to 11x repeats the last statement if an error was 
Stored in 5 bytes in floating point inary Form giving Эх : detected, otherwise restarts at the next one. Note 
10% accura 2 в that a command (immediate execution) statement 
. counts as a program and so destroys the re-entry 
Variables data. 
Numeric: NM d followed by alphanumerics. DATA... Standard, but no unquoted strings. 
String: t DIM... Deletes any array or string with the same name, 
FOR-NEXT: A- 2. | sets up space for a new array in the usual way, 
Numeric arrays: А — 7. : and initialises its elements to 0 ог”. 
String arrays: A$ — Z$. DRAW т, n Let (u, v) be the current PLOT (q.v.) position. 
- Draws а line as straight as possible from (u, v) to 
Arrays (и + m, v + n) by blacking.in pixels (quarter 
Numeric arrays: ‘n’ dimension, subscript range starts at 0. | . character squares). Changes the PLOT and PRINT 
String arrays: ^n' dimension, subscript positions, 
(more correctly, range starts ac 0. If the last | FOR A TO B Generally standard, but 
character arrays) subscript is omitted it's treated as a fixed | STEP C entirely dynamic in its action. 
length string. NEXT The effect of a NEXT statement is to look up the 
. corresponding FOR-variable, increment its value 
Strings- by the STEP, check whether the limit is exceeded 
Undimensioned strings can be any length. and if not jump to the looping line number. 
Can be concatentated (+). GOSUB n Transfers control to BASIC subroutine. 
Substring eg B$ — A$ 2 TO 4). COT | 
Literal strings eg C$ = “QWERTY”. On Jumps to line n. 
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IF x THEN 5 


INPUT v 


LIST 
LIST n 


LOAD f 
NEW 


NEW n 


PAUSE n 


PLOT m, n 


POKE m, п 


PRINT... 


PRINT AT m, n 
PRINT TO de 
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If x is true (defined to mean greater in absolute 
value than 2^?) then s is executed. The standard 
values of true and false as yielded by relational 
operators are 1 and 0. 
Outputs the display file to the screen with no 
special INPUT prompt; the rest is standard. 
Cannot be used as a command (immediate 
execution) statement. 
Lists from start of program. 
Lists program starting at line n with program 
cursor pointing at line n. 
Looks for a program called f on tape and loads it 
and its variables. 
Default n = 0. Erases BASIC program and 
variables. 
n is used to alter a system variable known as 
RAM TOP, which is the address of a byte in RAM. 
The area from RAM TOP on is untouched by the 
BASIC system, the POKEd programs can be left 
there in safety. 
Sends the display file to the TV screen for n 
frames (50 frames per second) or until a key is 
pressed. 
Sends the PLOT position (a system variable) to m, 
n) and blacks in that pixel. Also changes the 
PRINT position. 
Writes n in byte m in RAM. 
Mostly standard. The display file has 22 lines of 
32 characters each (2 zones of 16 characters) and 
when this is filled it is sent to the TV with error 5. 
CONTINUE carries on with the program with no 
loss of data. 
Moves the PRINT position to line m, character n. 
Alters the PRINT format. Here d is an optional 
digit between 1 and 8 (default value 8) and e is 
an optional letter E. From now until another such 
formatting item, numbers will be printed to d 
significant digits, and if E is present they will 
always be printed using scientific notation. 
On switch-on, the format is initialised so that 
numbers are printed to 8 digits and scientific 
notation is avoided where possible. Note that 
PRINT does not change the PLOT position. 





RANDOMIZE 











Standard. 





RAND is gi is i 
OMIZE n If nis given, this is made the value of the seed of 
R the random number generator. ° 
M" у Reads v for a data statement. 
MR Remember, for program comments. 
К КЕ Reinitialises the data (so it can be read again) 
TURN Return from subroutine. B 
RUN RUNs the BASIC program. 
RUN n CLEAR followed by GOTO n 
SAVE f | 
Saves program and variables on tape and calls it 
SCRO i i 
LL Scrolls display file up one line, losing top line 
making space at b 
top ottom. 
UNPLOT, m,n hese are like DRAW and 
m,n PLOT, but bi i i 
PLOT, b ank out pixels instead of blacking 
Functions Type of Operand Result 
- number Negate 
ABS 
i number Absolute magnitude 
OS number In Radians 
ARCSIN number in Radians 
ur number In Radians 
cone number The character whose code is x. 
number The code of the first character in 
co x (or 0 if x is empty) 
5 number In radians 
EXP number е" 
ІМКЕҮ % 
number Reads the keyboard. The result is 
а character representing the key 
pressed, otherwise the empty 
string. 
INT number integer 
LEN i 
string The length of x. 
LN number 


Natural log 
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NOT number Exclusive — ORs the first byte of 
x with 113, so that NOT 0 = 1, 
МОТ1-0. 
Unlike the other functions, МОТ 
has binding power 4 (between 
AND and the relational operators) 
so that for instance NOT A — B 
has the same value as NOT 
{А = B) (and A« >B). 





PEEK number The value of the byte in store 
whose address is x (3.1415927) е 
РІ А random 
RND number between 0 and 1. 
SGN number Yields —1,0, +1. AU REVOIR... 
SIN number In Radians. 
SQRT ‚ number Square root. 
STR$ number The string of characters that 


would appear on the screen if x 
were PRINTed. 


TAN number In Radians. 


USR number Converts x to an address in store 
and calls that address as a 
machine code subroutine. On 
return, the result is the contents 
of the h1 register pair. 

VAL string Evaluates x as a numerical 
expression (x must not contain the 
quote image character). 





... FOR NOW 





AND Logical AND 
OR Logical OR 
Relational operators 

ш Equal 

> Greater than 

< Less than 

<= Less than or equal to 


= Greater than or equal to 
<> Not equal 


Graphics 


All characters, their reverses, and all graphics can be entered directly 
from the keyboard. 
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